Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
        $mindob->subtract(years => $agemax, days => 364 + $inclusive);
        return $maxdob->ymd('-'),$mindob->ymd('-');
    }
    
  2. or download this
    my $max = shift || 0;
    
  3. or download this
    my $max = shift || $min;
    
  4. or download this
    use Test::More qw( no_plan );
    
    ...
    ok 1
    ok 2
    1..2