/usr/local/CPAN/Apache-SWIT/Apache/SWIT/Subsystem/Generator.pm

• package Apache::SWIT::Subsystem::Generator
  • dump_page_entry
• EOF

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

package Apache::SWIT::Subsystem::Generator;
use base 'Apache::SWIT::Maker::GeneratorBase';
use File::Slurp;
use Apache::SWIT::Maker::Manifest;

sub dump_page_entry {
	my ($self, $res, $v) = @_;
	return $v unless $v->{entry_points};
	my $tt_file = $v->{entry_points}->{r}->{template};
	$v->{file} = read_file($tt_file);
	$tt_file =~ s#^templates/##;
	$v->{entry_points}->{r}->{template} = $tt_file;
	return $v;
}

1;