File Coverage

blib/lib/JavaScript/Code/Function/Result.pm
Criterion Covered Total %
statement 15 21 71.4
branch n/a
condition n/a
subroutine 5 8 62.5
pod 2 2 100.0
total 22 31 70.9


line stmt bran cond sub pod time code
1             package JavaScript::Code::Function::Result;
2            
3 2     2   8 use strict;
  2         2  
  2         61  
4 2     2   8 use vars qw[ $VERSION ];
  2         33  
  2         272  
5 2         201 use base qw[
6             JavaScript::Code::Accessor
7             JavaScript::Code::Value
8 2     2   12 ];
  2         3  
9 2     2   969 use JavaScript::Code::Function::Result::Element ();
  2         4  
  2         89  
10            
11             use overload
12 2     2   16 '""' => sub { shift->output };
  2     0   5  
  2         18  
  0            
13            
14             __PACKAGE__->mk_accessors(qw[ value ]);
15            
16             $VERSION = '0.08';
17            
18             =head1 NAME
19            
20             JavaScript::Code::Function::Result - A JavaScript Function Result
21            
22             =head1 METHODS
23            
24             =head2 $self->output( )
25            
26             =cut
27            
28             sub output {
29 0     0 1   return shift->value;
30             }
31            
32             =head2 $self->as_element( )
33            
34             Returns a the result as a L object.
35            
36             =cut
37            
38             sub as_element {
39 0     0 1   my $self = shift;
40            
41 0           my $retval = JavaScript::Code::Function::Result::Element->new();
42 0           $retval->value( $self );
43            
44 0           return $retval;
45             }
46            
47             =head1 SEE ALSO
48            
49             L
50            
51             =head1 AUTHOR
52            
53             Sascha Kiefer, C
54            
55             =head1 LICENSE
56            
57             This library is free software, you can redistribute it and/or modify it under
58             the same terms as Perl itself.
59            
60             =cut
61            
62             1;