1234—567891011121314151617181920212223242526 package TestPOS;use base qw{DBIx::POS::Template};sub new { shift->SUPER::new(__FILE__); }HideShow 20 lines of Pod=pod=encoding utf8=name TestPOS=desc inherits the DBIx::POS::Template module=param# Some arbitrary parameter as perl code (eval) {}=sql select * from TestPOS;=cut1;
package
TestPOS;
use
base
qw{DBIx::POS::Template}
;
sub
new {
shift
->SUPER::new(__FILE__); }
=pod
=encoding utf8
=name TestPOS
=desc inherits the DBIx::POS::Template module
=param
# Some arbitrary parameter as perl code (eval)
{}
=sql
select * from TestPOS;
=cut
1;