File Coverage

blib/lib/WebDAO/Lib/MethodByPath.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	16	31	51.6

package WebDAO::Lib::MethodByPath;

=head1 NAME

WebDAO::Lib::MethodByPath - Component for method tag

=head1 SYNOPSIS

=head1 DESCRIPTION

WebDAO::Lib::MethodByPath - Component for method tag

=cut

our $VERSION = '0.01';
use WebDAO;
use strict;
use warnings;
use base qw(WebDAO);
__PACKAGE__->mk_attr( _path=>undef, _args=>undef);


sub init {
    my $self = shift;
    my ( $path, @args ) = @_;
    $self->_path($path);
    $self->_args( \@args );
    1;
}

sub fetch {
    my $self = shift;
    my $sess = shift;
    my @path   = @{ $sess->call_path( $self->_path ) };
    my ( $src, $res ) = $self->_root_->_traverse_( $sess, @path );
    return $res;
}

1;
__DATA__