my $ua = LWP::UserAgent->new;
my %templates;
-sub import {
- my $caller = caller;
- my ($self, $name, $title) = @_;
+use Carp qw/cluck/;
+
+sub import_to {
+ my ($self, $caller, $name, $title) = @_;
Gruntmaster::Data->export_to_level(1, $caller);
List::Util->export_to_level(1, $caller, qw/sum/);
}
}
+sub import {
+ return unless $_[0] eq __PACKAGE__;
+ splice @_, 1, 0, scalar caller;
+ goto &import_to
+}
+
##################################################
sub generate{
sub _generate {}
-sub vary {}
+sub vary { '' }
sub max_age { 60 }
sub variants {
+ return [] unless exists $templates{$_[0]};
[ map { [ $_, 1, 'text/html', undef, undef, $_, undef ]} keys $templates{$_[0]} ]
}