diff options
author | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2009-09-25 18:58:40 +0000 |
---|---|---|
committer | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2009-09-25 18:58:40 +0000 |
commit | 9bb62506e33250989de0bbd80bdd182d9425e5c6 (patch) | |
tree | 8dedefd3c8125053ca598a9786cdbf6889456543 /lib/Reaction/UI/Skin.pm | |
parent | 730673c65f90d99322d641f7bb2783c5bb93c291 (diff) | |
parent | 987fc6e26baea18fa0c3c48fb1208c5c350a4bc1 (diff) | |
download | reaction-9bb62506e33250989de0bbd80bdd182d9425e5c6.tar.gz reaction-9bb62506e33250989de0bbd80bdd182d9425e5c6.zip |
r31500@martha (orig r1229): purge | 2009-09-11 05:51:11 -0400
make_immutable for new moose
r31688@martha (orig r1231): mateu | 2009-09-13 18:18:07 -0400
Bump version of SQL::Translator required for testing so t/im_dbic.t passes.
r31689@martha (orig r1232): wreis | 2009-09-14 13:35:30 -0400
fixed child_event_sinks for SearchableListViewContainer vp
r31690@martha (orig r1233): wreis | 2009-09-14 13:35:58 -0400
collection-grid already does Pager and Actions
r31691@martha (orig r1234): edenc | 2009-09-14 23:51:37 -0400
added search spec sample to demo app
r31692@martha (orig r1235): wreis | 2009-09-15 11:36:30 -0400
no divs in base skin
r31693@martha (orig r1236): purge | 2009-09-17 10:21:58 -0400
pass through layout_args to actions
r31694@martha (orig r1237): edenc | 2009-09-17 14:14:04 -0400
compatibility fixes for Class::MOP 0.93
Diffstat (limited to 'lib/Reaction/UI/Skin.pm')
-rw-r--r-- | lib/Reaction/UI/Skin.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Reaction/UI/Skin.pm b/lib/Reaction/UI/Skin.pm index 237279d..0683258 100644 --- a/lib/Reaction/UI/Skin.pm +++ b/lib/Reaction/UI/Skin.pm @@ -71,6 +71,7 @@ sub _find_skin_dir { }; sub _load_skin_config { my ($self, $args) = @_; + my $class = ref($self) || $self; my $base = $self->skin_dir; my $lst = sub { (ref $_[0] eq 'ARRAY') ? $_[0] : [$_[0]] }; my @files = ( @@ -84,7 +85,7 @@ sub _load_skin_config { })} ); if (my $super_name = $cfg{extends}) { - my $super = $self->new( + my $super = $class->new( name => $super_name, view => $self->view, skin_base_dir => $args->{skin_base_dir}, |