X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole.pm;h=4e551eb45d241151495907c4fa0a8ca1a9c2ea78;hb=de775747b2afbf82d6b9858e958dc5a19ddfd31f;hp=54f0c0d7ec7c5640d0a348064c8180fe9b50fa81;hpb=cb585659f8b5f12f0a32c93ac88971fe84d4c1f3;p=maypole.git diff --git a/lib/Maypole.pm b/lib/Maypole.pm index 54f0c0d..4e551eb 100644 --- a/lib/Maypole.pm +++ b/lib/Maypole.pm @@ -93,8 +93,8 @@ sub is_applicable { sub call_authenticate { my $self = shift; return $self->model_class->authenticate($self) if - $self->model_class->can("authenticate"); - return $self->authenticate(); + $self->model_class->can("authenticate"); + return $self->authenticate($self); # Interface consistency is a Good Thing } sub additional_data {} @@ -135,7 +135,7 @@ this: package ProductDatabase; use base 'Maypole'; __PACKAGE__->set_database("dbi:mysql:products"); - BeerDB->config->{uri_base} = "http://your.site/catalogue/"; + ProductDatabase->config->{uri_base} = "http://your.site/catalogue/"; ProductDatabase::Product->has_a("category" => ProductDatabase::Category); # ...