Changeset 10550

Timestamp:

04/27/08 15:58:54 (7 months ago)

Author:

tokuhirom

Message:

web な context は role じゃなくて role だな

Location:

lang/perl/Nanto/trunk/lib/Nanto

Files:

• Context (added)
• Context/Web.pm (copied) (copied from lang/perl/Nanto/trunk/lib/Nanto/Role/Context/Web.pm) (1 diff)
• Role/Context (deleted)
• Role/Context.pm (modified) (1 diff)

lang/perl/Nanto/trunk/lib/Nanto/Context/Web.pm

@@ -1 @@
-package Nanto::Role::Context::Web;
+package Nanto::Context::Web;
 use strict;
-use Moose::Role;
-
+use Moose;
 with 'Nanto::Role::Context';
 

lang/perl/Nanto/trunk/lib/Nanto/Role/Context.pm

@@ -3 +3 @@
 use Moose::Role;
 
-requires 'base_name';
+sub base_name {
+    my $self = shift;
+    my $proto = ref $self || $self;
+    (my $base_name = $proto) =~ s/.+::Context//g;
+    $base_name;
+}
 
 sub component {