Convert Shop::Pay to use Moose instead of Class::InsideOut. Update tests, and core usages to Moose syntax. Provide a shim so the old, base ->new($session) syntax.

This commit is contained in:
Colin Kuskie 2010-06-24 13:31:32 -07:00
parent 3fbc109429
commit 9678c3d8a7
5 changed files with 39 additions and 62 deletions

View file

@ -177,7 +177,7 @@ sub www_pay {
my $session = shift;
my $output = undef;
my $method = "www_".$session->form->get("method");
my $pay = WebGUI::Shop::Pay->new($session);
my $pay = WebGUI::Shop::Pay->new(session => $session);
if ($method ne "www_" && $pay->can($method)) {
$output = $pay->$method();
}