/usr/local/CPAN/HTML-WebDAO/HTML/WebDAO/Lexer/Ltext.pm

• package HTML::WebDAO::Lexer::Ltext
  • Init
  • value
• EOF

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

package HTML::WebDAO::Lexer::Ltext;
use HTML::WebDAO::Lexer::Lbase;
use Data::Dumper;
use base qw( HTML::WebDAO::Lexer::Lbase );
use strict;
sub Init {
    my $self = shift;
    my $res = $self->SUPER::Init(@_);
    my $par = $self->all;
    return if $par->{value}=~/^\s+$/gis;
    $res
}
    
sub value {
    my $self = shift;
    my $par = $self->all;
   $par->{value}
}
1;