use File::Basename; use lib dirname(__FILE__); #use BeerDB; 1; __END__ #### # This is a rough test to see whether or not we're a template or # a static page return -1 unless @{ $r->{objects} || [] };