Help for this page

Select Code to Download


  1. or download this
    sub _is_start_pattern {
 my ($class, $line) = @_;
...
 # I really wish we could do
 #return ($line =~ $class::START_PATTERN);
}
  2. or download this
    {
    package PB_File;
...
use Test::More tests => 2;
is( PB_File->pattern, 'base-pattern' );
is( An_AR->pattern, 'sub-pattern' );
  3. or download this
    our $START_PATTERN = qr(^(\d)\s+\1$);
sub START_PATTERN { qr(^(\d)\s+\1$) };