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	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