/usr/local/CPAN/Apache-SWIT/Apache/SWIT/Maker/Skeleton/Page.pm

• package Apache::SWIT::Maker::Skeleton::Page
  • class_v
  • template
• EOF

use strict;
use warnings FATAL => 'all';

package Apache::SWIT::Maker::Skeleton::Page;
use base 'Apache::SWIT::Maker::Skeleton::Class';

__PACKAGE__->mk_accessors(qw(config_entry));

sub class_v { return shift()->config_entry->{class}; }

sub template { return <<'ENDS' };
use strict;
use warnings FATAL => 'all';

package [% class_v %];
use base qw(Apache::SWIT);

sub swit_render {
	my ($class, $req) = \@_;
	my $res = {};
	return $res;
}

1;
ENDS

1;