File Coverage

blib/lib/JavaScript/Writer/Block.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package JavaScript::Writer::Block;

use strict;
use warnings;
use v5.8.0;
use base 'Class::Accessor::Fast';

__PACKAGE__->mk_accessors(qw[ body ]);

use overload '""' => \&as_string;

our $VERSION = '0.0.1';

use JavaScript::Writer;

sub new {
    my $class = shift;
    my $self = bless {}, $class;
    return $self;
}

sub as_string {
    my $self = shift;
    my $sub = $self->body;
    my $body = sub {
        my ($js) = @_;
        $sub->($js);
        return $js;
    }->(JavaScript::Writer->new);
    return "{${body}}";
}

1;

__END__