File Coverage

blib/lib/Template/Plugin/IO/All.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	5	6	83.3
condition	2	3	66.6
subroutine	6	6	100.0
pod	2	2	100.0
total	35	37	94.5

package Template::Plugin::IO::All;

use strict;
use base qw( Template::Plugin );

use IO::All;
#use Data::Dumper;

$Template::Plugin::IO::All::VERSION = '0.01';

sub load {
    my ($class, $context) = @_;
    bless {
            _CONTEXT => $context,
        }, $class;
}

sub new {
    my ($self, $context, @params) = @_;
    if($context and not ref $context){
	$self->{_io} = io($context);
    }
    $self;
}


sub AUTOLOAD {
    my $sub = $Template::Plugin::IO::All::AUTOLOAD;
    $sub =~ s/^Template::Plugin::IO::All:://o;
#    print "[$sub]\n";

    if($sub =~ /^([+\-]?\d+)$/){    # Access content on a certain line
	shift->{_io}->[$1];
    }
    elsif($sub ne 'DESTROY'){
	shift->{_io}->$sub(@_);
    }
}

1;

__END__