File Coverage

blib/lib/Text/Xslate/PP/Type/Raw.pm

Criterion	Covered	Total	%
statement	15	28	53.5
branch	0	10	0.0
condition			n/a
subroutine	5	8	62.5
pod	0	3	0.0
total	20	49	40.8

package Text::Xslate::PP::Type::Raw;

use strict;
use warnings;

use Carp ();
use Text::Xslate::PP::Const qw(TXt_RAW);

use overload (
    '""'     => 'as_string',
    fallback => 1,
);

my $the_class = TXt_RAW;

sub new {
    my ( $class, $str ) = @_;

    Carp::croak("Usage: $the_class->new(str)") if ( @_ != 2 );

    if ( ref $class ) {
        Carp::croak("You cannot call $the_class->new() as an instance method");
    }
    elsif ( $class ne $the_class ) {
        Carp::croak("You cannot extend $the_class ($class)");
    }
    $str = ${$str} if ref($str) eq $the_class; # unmark
    return bless \$str, $the_class;
}

sub as_string {
    unless ( ref $_[0] ) {
        Carp::croak("You cannot call $the_class->as_string() as a class method");
    }
    return ${ $_[0] };
}

sub defined { 1 }

package
    Text::Xslate::Type::Raw;
our @ISA = qw(Text::Xslate::PP::Type::Raw);
1;
__END__