File Coverage

blib/lib/Devel/Declare/Lexer/Token/Heredoc.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	2	0.0
total	17	19	89.4

package Devel::Declare::Lexer::Token::Heredoc;

use base qw/ Devel::Declare::Lexer::Token /;

use v5;

sub new
{
    my ($caller, %arg) = @_;

    my $self = $caller->SUPER::new(%arg);

    return $self;
}

sub get
{
    my ($self) = @_;

#    return '<<' . $self->{name} . "\n" . $self->{value}; # value currently contains end name
    my $v = $self->{value};
    $v =~ s/\n/\\n/g;
    return '"' . $v . '"'; # value currently contains end name
}

1;