Permalink
Browse files

removing left Class::XSAccessor

  • Loading branch information...
1 parent 791c604 commit 48b626f117e8c7b9d8a14e17fc5bec18fb35f6cb 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 48b626f

Please sign in to comment.