X-Git-Url: http://git.ieval.ro/?p=gruntmaster-page.git;a=blobdiff_plain;f=lib%2FGruntmaster%2FPage%2FBase.pm;h=6ced6145a68eff7367d87293f4963258fa861985;hp=9e2d03034cc5c8550499301beb3a67d6825199e5;hb=fdbf59e5def9cbb4e1c0749f819ba8d946c37725;hpb=b7bd0bad53df03baf5dc302ade58bea4f73d0880

diff --git a/lib/Gruntmaster/Page/Base.pm b/lib/Gruntmaster/Page/Base.pm
index 9e2d030..6ced614 100644
--- 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 }