File Coverage

blib/lib/Template/Alloy/XS.pm

Criterion	Covered	Total	%
statement	23	26	88.4
branch	2	2	100.0
condition			n/a
subroutine	8	9	88.8
pod	0	1	0.0
total	33	38	86.8

package Template::Alloy::XS;

=head1 NAME

Template::Alloy::XS - XS version of key parts of Template::Alloy

=cut

use strict;
use warnings;
use XSLoader;
use v5.8.0;
use Template::Alloy 1.015;
use base qw(Template::Alloy);

our $VERSION = '1.004';
XSLoader::load('Template::Alloy::XS', $VERSION);

### method used for debugging XS
sub __dump_any {
    my ($self, $data) = @_;
    require Data::Dumper;
    print Data::Dumper::Dumper($data);
}

### this is here because I don't know how to call
### builtins from XS - anybody know how?
sub __lc { lc $_[0] }

sub play_tree {
    my $self = shift;
    return $self->stream_tree(@_) if $self->{'STREAM'};
    require Template::Alloy::Play;
    $self->play_tree_xs(@_);
}

1;

__END__