Select Code to Download

Select or download this

my $parser1 = HTML::TokePaser::Simple->new(path => $file_name); 
my $parser2 = HTML::TokePaser::Simple->new(handle => $file_handle);
my $parser3 = HTML::TokePaser::Simple->new(string => $string); 
my $parser4 = HTML::TokePaser::Simple->new(fqdn => $fqdn);

Select or download this

  sub guess_mode {
    my $class = shift;
...
    ( length($_[0]) > 1024 )          ? 'string' : 
                                        'path';
  }