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 5     5   21 use strict;
  5         8  
  5         105  
18 5     5   21 use warnings;
  5         7  
  5         102  
19 5     5   19 use WebDAO::Base;
  5         9  
  5         319  
20 5     5   20 use base qw(WebDAO);
  5         7  
  5         610  
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__