Permalink
Browse files

Merge branch 'master' into new_rendering

  • Loading branch information...
2 parents 9a01c72 + 48b626f commit 37ec4150ad980a94f0363e215e67c43711c3b57f Zbigniew Lukasiak committed Aug 28, 2010
@@ -5,7 +5,7 @@ package DvdDatabase::Controller::Dvd::Record;
use base 'WebNano::Controller';
-use Class::XSAccessor { accessors => [ qw/ record / ], };
+use Object::Tiny::RW 'record';
sub index_action {
@@ -3,7 +3,7 @@ use strict;
use warnings;
use Template;
-use Class::XSAccessor { accessors => [ qw/ root _tt global_path INCLUDE_PATH / ], };
+use Object::Tiny::RW qw/ root _tt global_path INCLUDE_PATH /;
use File::Spec;
sub new {
@@ -9,10 +9,7 @@ use URI::Escape 'uri_unescape';
use Plack::Request;
use File::Spec::Functions qw/catfile catdir/;
-use Class::XSAccessor {
- accessors => [ qw/ application env self_path self_url url_map _request / ],
- constructor => 'new'
-};
+use Object::Tiny::RW qw/ application env self_path self_url url_map _request /;
sub request {
my $self = shift;

0 comments on commit 37ec415

Please sign in to comment.