X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;ds=sidebyside;f=examples%2Ffancy_example%2FBeerDB%2FBrewery.pm;fp=examples%2Ffancy_example%2FBeerDB%2FBrewery.pm;h=ad99483e310d3a832760b12444230f3282b66d77;hb=fadcae3ffddebaa38da172f9624cc60176d80b33;hp=0000000000000000000000000000000000000000;hpb=d813b3413bbd58789200c2ef02c7386e33cabe00;p=maypole.git

diff --git a/examples/fancy_example/BeerDB/Brewery.pm b/examples/fancy_example/BeerDB/Brewery.pm
new file mode 100644
index 0000000..ad99483
--- /dev/null
+++ b/examples/fancy_example/BeerDB/Brewery.pm
@@ -0,0 +1,10 @@
+package BeerDB::Brewery;
+use strict;
+use warnings;
+
+use Data::Dumper;
+
+sub display_columns { qw/name url beers/ } # note has_man beers
+sub list_columns { qw/name url/ } 
+
+1;