Introduce Gruntmaster::Page::Generic

[gruntmaster-page.git] / lib / Gruntmaster / Page / Base.pm

diff --git a/lib/Gruntmaster/Page/Base.pm b/lib/Gruntmaster/Page/Base.pm
index 9e2d03034cc5c8550499301beb3a67d6825199e5..6ced6145a68eff7367d87293f4963258fa861985 100644 (file)
--- a/lib/Gruntmaster/Page/Base.pm
+++ b/lib/Gruntmaster/Page/Base.pm
@@ -38,9 +38,10 @@ use LWP::UserAgent;
 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/);
@@ -65,6 +66,12 @@ sub import {
        }
 }
 
+sub import {
+       return unless $_[0] eq __PACKAGE__;
+       splice @_, 1, 0, scalar caller;
+       goto &import_to
+}
+
 ##################################################
 
 sub generate{
@@ -80,7 +87,7 @@ sub generate{
 
 sub _generate {}
 
-sub vary {}
+sub vary { '' }
 
 sub max_age { 60 }