This is an automated email from the git hooks/post-receive script. gregoa pushed a commit to annotated tag release-0.004 in repository libclass-tiny-perl.
commit 59c41c661a1cf5a50097894486675e262c62eb7c Author: David Golden <dagol...@cpan.org> Date: Tue Aug 20 16:19:56 2013 -0400 split out base class into Class::Tiny::Object --- META.json | 4 ++++ lib/Class/Tiny.pm | 23 ++++++++++++++--------- 2 files changed, 18 insertions(+), 9 deletions(-) diff --git a/META.json b/META.json index 376ca51..52399e4 100644 --- a/META.json +++ b/META.json @@ -68,6 +68,10 @@ "Class::Tiny" : { "file" : "lib/Class/Tiny.pm", "version" : "0.004" + }, + "Class::Tiny::Object" : { + "file" : "lib/Class/Tiny.pm", + "version" : "0.004" } }, "release_status" : "stable", diff --git a/lib/Class/Tiny.pm b/lib/Class/Tiny.pm index cf79a29..cf41441 100644 --- a/lib/Class/Tiny.pm +++ b/lib/Class/Tiny.pm @@ -8,27 +8,19 @@ package Class::Tiny; use Carp (); -if ( $] >= 5.010 ) { - require "mro.pm"; ## no critic: hack to hide from min version & prereq scanners -} -else { - require MRO::Compat; -} - my %CLASS_ATTRIBUTES; # adapted from Object::Tiny and Object::Tiny::RW sub import { no strict 'refs'; my $class = shift; - return unless $class eq __PACKAGE__; # NOP for subclasses my $pkg = caller; my @attr = grep { defined and !ref and /^[^\W\d]\w*$/s or Carp::croak "Invalid accessor name '$_'" } @_; $CLASS_ATTRIBUTES{$pkg}{$_} = undef for @attr; - @{"${pkg}::ISA"} = $class unless @{"${pkg}::ISA"}; + @{"${pkg}::ISA"} = "Class::Tiny::Object" unless @{"${pkg}::ISA"}; #<<< No perltidy eval join "\n", ## no critic: intentionally eval'ing subs here "package $pkg;", @@ -40,6 +32,19 @@ sub import { return 1; } +package Class::Tiny::Object; +# ABSTRACT: Base class for classes built with Class::Tiny +# VERSION + +use Carp (); + +if ( $] >= 5.010 ) { + require "mro.pm"; ## no critic: hack to hide from min version & prereq scanners +} +else { + require MRO::Compat; +} + sub new { my $class = shift; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libclass-tiny-perl.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