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


line stmt bran cond sub pod time code
1             package WebDAO::Lib::MethodByPath;
2              
3             =head1 NAME
4              
5             WebDAO::Lib::MethodByPath - Component for method tag
6              
7             =head1 SYNOPSIS
8              
9             =head1 DESCRIPTION
10              
11             WebDAO::Lib::MethodByPath - Component for method tag
12              
13             =cut
14              
15             our $VERSION = '0.01';
16 6     6   678 use WebDAO;
  6         15  
  6         206  
17 6     6   32 use strict;
  6         10  
  6         105  
18 6     6   27 use warnings;
  6         11  
  6         137  
19 6     6   27 use base qw(WebDAO);
  6         12  
  6         1130  
20             __PACKAGE__->mk_attr( _path=>undef, _args=>undef);
21              
22              
23             sub init {
24 0     0 0   my $self = shift;
25 0           my ( $path, @args ) = @_;
26 0           $self->_path($path);
27 0           $self->_args( \@args );
28 0           1;
29             }
30              
31             sub fetch {
32 0     0 0   my $self = shift;
33 0           my $sess = shift;
34 0           my @path = @{ $sess->call_path( $self->_path ) };
  0            
35 0           my ( $src, $res ) = $self->_root_->_traverse_( $sess, @path );
36 0           return $res;
37             }
38              
39             1;
40             __DATA__
41              
42             =head1 SEE ALSO
43              
44             http://sourceforge.net/projects/webdao
45              
46             =head1 AUTHOR
47              
48             Zahatski Aliaksandr, E<lt>zag@cpan.orgE<gt>
49              
50             =head1 COPYRIGHT AND LICENSE
51              
52             Copyright 2002-2012 by Zahatski Aliaksandr
53              
54             This library is free software; you can redistribute it and/or modify
55             it under the same terms as Perl itself.
56              
57             =cut
58