/usr/local/CPAN/HTML-WebDAO/HTML/WebDAO/Lib/RawHTML.pm

• package HTML::WebDAO::Lib::RawHTML
  • init
  • fetch
• EOF

#$Id: RawHTML.pm 97 2007-06-17 13:18:56Z zag $

package HTML::WebDAO::Lib::RawHTML;
use HTML::WebDAO::Base;
use base qw(HTML::WebDAO::Component);
attributes (_raw_html);
sub init {
    my ($self,$ref_raw_html)=@_;
   _raw_html $self $ref_raw_html;
}
sub fetch {
  my $self=shift;
  return ${$self->_raw_html};
}

1;