This is an automated email from the git hooks/post-receive script.

kanashiro-guest pushed a commit to branch master
in repository carton.

commit a9268d0548bf0029191b95fcd8d28cf13ac2d9b2
Author: Tatsuhiko Miyagawa <miyag...@bulknews.net>
Date:   Thu Oct 13 12:56:10 2011 +0900

    no Mouse
---
 Makefile.PL          |  1 -
 lib/Carton/Config.pm | 12 +++---------
 2 files changed, 3 insertions(+), 10 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index 961bc52..bedd170 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -13,7 +13,6 @@ requires 'Module::Metadata', 1.000003;
 requires 'Try::Tiny', 0.09;
 requires 'parent', 0.223;
 requires 'Config::GitLike', 1.05;
-requires 'Mouse', 0.93;
 requires 'Text::ParseWords', 3.10;
 requires 'local::lib', 1.008;
 requires 'Exception::Class', 1.32;
diff --git a/lib/Carton/Config.pm b/lib/Carton/Config.pm
index abc9370..d10f991 100644
--- a/lib/Carton/Config.pm
+++ b/lib/Carton/Config.pm
@@ -2,18 +2,15 @@ package Carton::Config;
 use strict;
 use warnings;
 
-use Mouse;
-extends 'Config::GitLike';
+use parent qw(Config::GitLike);
 
 use File::Basename ();
 use File::Path ();
 
-has 'loaded_defaults' => (is => 'rw', isa => 'Bool');
-
 sub load_defaults {
     my $self = shift;
 
-    return if $self->loaded_defaults;
+    return if $self->{loaded_defaults};
 
     $self->data({}) unless $self->is_loaded;
 
@@ -31,7 +28,7 @@ sub load_defaults {
         }
     }
 
-    $self->loaded_defaults(1);
+    $self->{loaded_defaults} = 1;
 }
 
 sub set {
@@ -45,8 +42,5 @@ sub set {
     $self->SUPER::set(%args);
 }
 
-no Mouse;
-__PACKAGE__->meta->make_immutable;
-
 1;
 

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/carton.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to