Help for this page

Select Code to Download


  1. or download this
    package DBI::Page;
use base 'DBI::Sec_scheduler';
...
__PACKAGE__->has_many(cols => 'DBI::Column');

1;
  2. or download this
    package DBI::Page_column;
use base 'DBI::Sec_scheduler';
...
__PACKAGE__->has_a(column_id => 'DBI::Column');

1;
  3. or download this
    package DBI::Column;
use base 'DBI::Sec_scheduler';
...


1;
  4. or download this
    #!/usr/bin/perl
use strict; use warnings;
...

my $p = DBI::Page->retrieve(page_id => 1);
print Dumper($p->cols);