Help for this page

Select Code to Download


  1. or download this
        my %p = ( outputdir     => undef,
                  rptfmt        => 'html',
    ...
    .....
    
    my $rpt = Report->new($p{title}, $p{headers}, $p{data});
    
  2. or download this
    sub new {
        my ($class,$title,$head,$data,$info) = @_;
    ...
        #$rows = $#{@$data} if $data || ref $data eq "ARRAY" || ref $$data
    +[0] ne "ARRAY";
    
        my ($cols,$rows,@justify) = ($#{@$head},$#{@$data});