File Coverage

blib/lib/HTML/Acid/Buffer.pm

Criterion	Covered	Total	%
statement	40	40	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	10	10	100.0
pod	6	6	100.0
total	62	62	100.0

package HTML::Acid::Buffer;

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.3');

# Module implementation here

sub new {
    my $class = shift;
    my $self = {};
    $self->{tagname} = shift || '';
    $self->{text} = "";
    $self->{attr} = {};
    bless $self, $class;
    return $self;
}

sub get_attr {
    my $self = shift;
    return $self->{attr};
}

sub set_attr {
    my $self = shift;
    my $attr = shift;
    $self->{attr} = $attr;
}

sub state {
    my $self = shift;
    return $self->{text};
}

sub add {
    my $self = shift;
    $self->{text} .= shift;
    return;
}

sub stop {
    my $self = shift;
    my $tagname = $self->{tagname};
    my $results = $tagname ? "<$tagname" : '';
    my $text = $self->{text};
    foreach my $key (sort keys %{$self->{attr}}) {
        $results .= " $key=\"$self->{attr}->{$key}\"";
    }
    $results .= ($tagname ? ">$text" : $text);
    delete $self->{text};
    delete $self->{attr};
    return $results;
}

1; # Magic true value required at end of module
__END__