1 package HTML::String::Value;
9 '""' => 'escaped_string',
16 my ($class, @raw_parts) = @_;
19 if (ref($_) eq 'ARRAY') {
21 } elsif ($_->$_isa(__PACKAGE__)) {
28 my $self = bless { parts => \@parts }, $class;
36 return join '', map +(
48 sub unescaped_string {
51 return join '', map $_->[0], @{$self->{parts}};
55 my ($self, $str, $prefix) = @_;
57 return $self unless $str;
59 my @parts = @{$self->{parts}};
62 $str->$_isa(__PACKAGE__)
68 unshift @parts, @new_parts;
70 push @parts, @new_parts;
73 return ref($self)->new(@parts);