Continuity/Widget/DomNode.pm

package Continuity::Widget::DomNode;

use Moose;

# This might be just text
has text => ( is => 'rw', isa => 'Str', default => undef );

# Or it is a tag
has name => ( is => 'rw', isa => 'Str', default => undef );
has attr => ( is => 'rw', isa => 'HashRef', default => sub {{}} );

# And it is part of a heirarchy
has parent => ( is => 'rw' );
has children => ( is => 'rw', isa => 'ArrayRef', default => sub {[]} );

sub create {
  my ($class, @node_list) = @_;
  my @new_nodes;
  while(@node_list) {
    my $node = shift @node_list;
    my $self = $class->new;
    push @new_nodes, $self;
    if(!(ref $node_list[0])) {
      if($node eq 'br' || $node eq 'hr') {
        $self->name($node);
      } else {
        $self->text($node);
      }
      next;
    }
    if(ref $node_list[0] eq 'HASH') {
      $self->attr( shift @node_list );
    }
    if(ref $node_list[0] eq 'ARRAY') {
      $self->children([$class->create(@{ shift @node_list })]);
      foreach my $child (@{$self->children}) {
        $child->parent($self);
      }
    }
    if(%{$self->attr} || @{$self->children}) {
      $self->name($node);
    } else {
      $self->text($node);
    }
  }
  return wantarray ? @new_nodes : $new_nodes[0];
}

sub siblings {
  my ($self) = @_;
  if($self->parent) {
    my @siblings = @{$self->parent->children};
    @siblings = grep { $_ != $self } @siblings;
    return @siblings;
  }
  return undef;
}

sub to_string {
  my ($self) = @_;
  if($self->text) {
    return $self->text;
  }
  if($self->name) {
    my $attrs = '';
    my ($key, $val);
    $attrs .= qq{ $key="$val"} while ($key, $val) = each %{$self->attr};
    if(@{$self->children}) {
      my $children_string = join '', map { $_->to_string } @{$self->children};
      return '<' . $self->name . $attrs . '>' . $children_string . '</' . $self->name . '>';
    } else {
      return '<' . $self->name . $attrs . ' />';
    }
  }
}


1;

1	dpavlin	69	package Continuity::Widget::DomNode;
2
3			use Moose;
4
5			# This might be just text
6			has text => ( is => 'rw', isa => 'Str', default => undef );
7
8			# Or it is a tag
9			has name => ( is => 'rw', isa => 'Str', default => undef );
10			has attr => ( is => 'rw', isa => 'HashRef', default => sub {{}} );
11
12			# And it is part of a heirarchy
13			has parent => ( is => 'rw' );
14			has children => ( is => 'rw', isa => 'ArrayRef', default => sub {[]} );
15
16			sub create {
17			my ($class, @node_list) = @_;
18			my @new_nodes;
19			while(@node_list) {
20			my $node = shift @node_list;
21			my $self = $class->new;
22			push @new_nodes, $self;
23			if(!(ref $node_list[0])) {
24			if($node eq 'br' \|\| $node eq 'hr') {
25			$self->name($node);
26			} else {
27			$self->text($node);
28			}
29			next;
30			}
31			if(ref $node_list[0] eq 'HASH') {
32			$self->attr( shift @node_list );
33			}
34			if(ref $node_list[0] eq 'ARRAY') {
35			$self->children([$class->create(@{ shift @node_list })]);
36			foreach my $child (@{$self->children}) {
37			$child->parent($self);
38			}
39			}
40			if(%{$self->attr} \|\| @{$self->children}) {
41			$self->name($node);
42			} else {
43			$self->text($node);
44			}
45			}
46			return wantarray ? @new_nodes : $new_nodes[0];
47			}
48
49			sub siblings {
50			my ($self) = @_;
51			if($self->parent) {
52			my @siblings = @{$self->parent->children};
53			@siblings = grep { $_ != $self } @siblings;
54			return @siblings;
55			}
56			return undef;
57			}
58
59			sub to_string {
60			my ($self) = @_;
61			if($self->text) {
62			return $self->text;
63			}
64			if($self->name) {
65			my $attrs = '';
66			my ($key, $val);
67			$attrs .= qq{ $key="$val"} while ($key, $val) = each %{$self->attr};
68			if(@{$self->children}) {
69			my $children_string = join '', map { $_->to_string } @{$self->children};
70			return '<' . $self->name . $attrs . '>' . $children_string . '</' . $self->name . '>';
71			} else {
72			return '<' . $self->name . $attrs . ' />';
73			}
74			}
75			}
76
77
78			1;
79