Changeset 33281 for lang/perl/Chaostr

Timestamp:

05/13/09 16:40:57 (3 years ago)

Author:

vkgtaro

Message:

Mixin!

Location:

lang/perl/Chaostr/trunk/lib/Chaostr

Files:

• Class/DateTime.pm (added)
• Class/Mailable.pm (added)
• Class/OneTimeSession.pm (added)
• Service.pm (modified) (2 diffs)
• Service/Test.pm (modified) (3 diffs)

lang/perl/Chaostr/trunk/lib/Chaostr/Service.pm

@@ -3 +3 @@
 use Chaostr::Class;
 
-use Chaostr::Config;
-use Chaostr::DB;
-use Chaostr::Log;
-use Chaostr::Service::PluginLoader;
 use Data::Dumper;
 use FormValidator::LazyWay;
@@ -14 +10 @@
 with 'Chaostr::Class::Loggable';
 with 'Chaostr::Class::Validatable';
-
-# with 'Chaostr::Service::Mixin::Mail';
-# with 'Chaostr::Service::Mixin::OneTimeSession';
-# with 'Chaostr::Service::Mixin::DateTime';
+with 'Chaostr::Class::Mailable';
+with 'Chaostr::Class::DateTime';
+with 'Chaostr::Class::OneTimeSession';
 
 has request => ( is => 'rw' );

lang/perl/Chaostr/trunk/lib/Chaostr/Service/Test.pm

@@ -8 +8 @@
     my ( $self, $content ) = @_;
 
-    return $self->onetimesession->save($content);
+    return $self->save_ontime_session($content);
 }
 
@@ -14 +14 @@
     my ( $self, $token ) = @_;
 
-    return $self->onetimesession->load($token);
+    return $self->load_ontime_session($token);
 }
 
@@ -20 +20 @@
     my ( $self, $token ) = @_;
 
-    return $self->onetimesession->remove($token);
+    return $self->remove_ontime_session($token);
 }