File Coverage

blib/lib/WebDAO/Lib/RawHTML.pm
Criterion Covered Total %
statement 12 17 70.5
branch n/a
condition n/a
subroutine 4 6 66.6
pod 0 2 0.0
total 16 25 64.0


line stmt bran cond sub pod time code
1             package WebDAO::Lib::RawHTML;
2             #$Id$
3              
4             =head1 NAME
5              
6             WebDAO::Lib::RawHTML - Component for raw html
7              
8             =head1 SYNOPSIS
9              
10             =head1 DESCRIPTION
11              
12             WebDAO::Lib::RawHTML - Component for raw html
13              
14             =cut
15              
16             our $VERSION = '0.01';
17 6     6   36 use strict;
  6         14  
  6         144  
18 6     6   28 use warnings;
  6         11  
  6         118  
19 6     6   27 use WebDAO::Base;
  6         9  
  6         376  
20 6     6   35 use base qw(WebDAO);
  6         9  
  6         741  
21              
22             __PACKAGE__->mk_attr(_raw_html=>undef);
23              
24             sub init {
25 0     0 0   my ($self,$ref_raw_html)=@_;
26 0           _raw_html $self $ref_raw_html;
27             }
28              
29             sub fetch {
30 0     0 0   my $self=shift;
31 0           return ${$self->_raw_html};
  0            
32             }
33              
34             1;
35             __DATA__
36              
37             =head1 SEE ALSO
38              
39             http://sourceforge.net/projects/webdao
40              
41             =head1 AUTHOR
42              
43             Zahatski Aliaksandr, E<lt>zag@cpan.orgE<gt>
44              
45             =head1 COPYRIGHT AND LICENSE
46              
47             Copyright 2002-2014 by Zahatski Aliaksandr
48              
49             This library is free software; you can redistribute it and/or modify
50             it under the same terms as Perl itself.
51              
52             =cut