File Coverage

blib/lib/XML/API/Cache.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	1	2	50.0
condition	2	6	33.3
subroutine	7	7	100.0
pod	3	3	100.0
total	37	42	88.1

package XML::API::Cache;
use strict;
use warnings;
use Carp qw(croak);
use overload '""' => \&content;

our $VERSION = '0.30';

sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my $x     = shift || croak 'XML::API::Cache->new($x)';
    $x->isa('XML::API') || croak 'argument must be XML::API derived object';

    my $self = {
        content => $x->_fast_string,
        langs   => [ $x->_langs ],
    };

    bless( $self, $class );
    return $self;
}

sub langs {
    my $self = shift;
    return @{ $self->{langs} };
}

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

1;
__END__