r21938 - in /trunk/libclass-mop-perl: ./ debian/ inc/Module/ inc/Module/Install/ lib/ lib/Class/ lib/Class/MOP/ lib/Class/MOP/Method/ t/
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Fri Jun 20 10:32:04 UTC 2008
Author: eloy
Date: Fri Jun 20 10:32:04 2008
New Revision: 21938
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=21938
Log:
new upstream version
Modified:
trunk/libclass-mop-perl/Changes
trunk/libclass-mop-perl/META.yml
trunk/libclass-mop-perl/debian/changelog
trunk/libclass-mop-perl/inc/Module/Install.pm
trunk/libclass-mop-perl/inc/Module/Install/Base.pm
trunk/libclass-mop-perl/inc/Module/Install/Can.pm
trunk/libclass-mop-perl/inc/Module/Install/Fetch.pm
trunk/libclass-mop-perl/inc/Module/Install/Makefile.pm
trunk/libclass-mop-perl/inc/Module/Install/Metadata.pm
trunk/libclass-mop-perl/inc/Module/Install/Win32.pm
trunk/libclass-mop-perl/inc/Module/Install/WriteAll.pm
trunk/libclass-mop-perl/lib/Class/MOP.pm
trunk/libclass-mop-perl/lib/Class/MOP/Attribute.pm
trunk/libclass-mop-perl/lib/Class/MOP/Class.pm
trunk/libclass-mop-perl/lib/Class/MOP/Immutable.pm
trunk/libclass-mop-perl/lib/Class/MOP/Instance.pm
trunk/libclass-mop-perl/lib/Class/MOP/Method.pm
trunk/libclass-mop-perl/lib/Class/MOP/Method/Accessor.pm
trunk/libclass-mop-perl/lib/Class/MOP/Method/Constructor.pm
trunk/libclass-mop-perl/lib/Class/MOP/Method/Generated.pm
trunk/libclass-mop-perl/lib/Class/MOP/Method/Wrapped.pm
trunk/libclass-mop-perl/lib/Class/MOP/Module.pm
trunk/libclass-mop-perl/lib/Class/MOP/Object.pm
trunk/libclass-mop-perl/lib/Class/MOP/Package.pm
trunk/libclass-mop-perl/lib/metaclass.pm
trunk/libclass-mop-perl/t/083_load_class.t
Modified: trunk/libclass-mop-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/Changes?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/Changes (original)
+++ trunk/libclass-mop-perl/Changes Fri Jun 20 10:32:04 2008
@@ -1,6 +1,10 @@
Revision history for Perl extension Class-MOP.
-0.61
+0.62 Wed June 18, 2008
+ - in is_class_loaded, recognize scalar references (as opposed to globs) in
+ the symbol table as methods (these are optimized constant subs)
+
+0.61 Fri. June 13, 2008
- Okay, lets give this another try and see if PAUSE
recognizes it correct this time.
Modified: trunk/libclass-mop-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/META.yml?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/META.yml (original)
+++ trunk/libclass-mop-perl/META.yml Fri Jun 20 10:32:04 2008
@@ -7,7 +7,7 @@
Test::Exception: 0.21
Test::More: 0.62
distribution_type: module
-generated_by: 'Module::Install version 0.73'
+generated_by: 'Module::Install version 0.75'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.3.html
@@ -22,50 +22,50 @@
provides:
Class::MOP:
file: lib/Class/MOP.pm
- version: 0.61
+ version: 0.62
Class::MOP::Attribute:
file: lib/Class/MOP/Attribute.pm
- version: 0.61
+ version: 0.62
Class::MOP::Class:
file: lib/Class/MOP/Class.pm
- version: 0.61
+ version: 0.62
Class::MOP::Immutable:
file: lib/Class/MOP/Immutable.pm
- version: 0.61
+ version: 0.62
Class::MOP::Instance:
file: lib/Class/MOP/Instance.pm
- version: 0.61
+ version: 0.62
Class::MOP::Method:
file: lib/Class/MOP/Method.pm
- version: 0.61
+ version: 0.62
Class::MOP::Method::Accessor:
file: lib/Class/MOP/Method/Accessor.pm
- version: 0.61
+ version: 0.62
Class::MOP::Method::Constructor:
file: lib/Class/MOP/Method/Constructor.pm
- version: 0.61
+ version: 0.62
Class::MOP::Method::Generated:
file: lib/Class/MOP/Method/Generated.pm
- version: 0.61
+ version: 0.62
Class::MOP::Method::Wrapped:
file: lib/Class/MOP/Method/Wrapped.pm
- version: 0.61
+ version: 0.62
Class::MOP::Module:
file: lib/Class/MOP/Module.pm
- version: 0.61
+ version: 0.62
Class::MOP::Object:
file: lib/Class/MOP/Object.pm
- version: 0.61
+ version: 0.62
Class::MOP::Package:
file: lib/Class/MOP/Package.pm
- version: 0.61
+ version: 0.62
metaclass:
file: lib/metaclass.pm
- version: 0.61
+ version: 0.62
requires:
Carp: 0
MRO::Compat: 0.05
Scalar::Util: 1.18
Sub::Identify: 0.03
Sub::Name: 0.02
-version: 0.61
+version: 0.62
Modified: trunk/libclass-mop-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/debian/changelog?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/debian/changelog (original)
+++ trunk/libclass-mop-perl/debian/changelog Fri Jun 20 10:32:04 2008
@@ -1,3 +1,9 @@
+libclass-mop-perl (0.62-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Krzysztof Krzyżaniak (eloy) <eloy at debian.org> Fri, 20 Jun 2008 12:29:39 +0200
+
libclass-mop-perl (0.61-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libclass-mop-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/inc/Module/Install.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/inc/Module/Install.pm (original)
+++ trunk/libclass-mop-perl/inc/Module/Install.pm Fri Jun 20 10:32:04 2008
@@ -30,7 +30,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.73';
+ $VERSION = '0.75';
*inc::Module::Install::VERSION = *VERSION;
@inc::Module::Install::ISA = __PACKAGE__;
@@ -85,7 +85,7 @@
# Build.PL was formerly supported, but no longer is due to excessive
# difficulty in implementing every single feature twice.
-if ( $0 =~ /Build.PL$/i or -f 'Build.PL' ) { die <<"END_DIE" }
+if ( $0 =~ /Build.PL$/i ) { die <<"END_DIE" }
Module::Install no longer supports Build.PL.
Modified: trunk/libclass-mop-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/inc/Module/Install/Base.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libclass-mop-perl/inc/Module/Install/Base.pm Fri Jun 20 10:32:04 2008
@@ -1,7 +1,7 @@
#line 1
package Module::Install::Base;
-$VERSION = '0.73';
+$VERSION = '0.75';
# Suspend handler for "redefined" warnings
BEGIN {
Modified: trunk/libclass-mop-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/inc/Module/Install/Can.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/inc/Module/Install/Can.pm (original)
+++ trunk/libclass-mop-perl/inc/Module/Install/Can.pm Fri Jun 20 10:32:04 2008
@@ -11,7 +11,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.73';
+ $VERSION = '0.75';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libclass-mop-perl/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/inc/Module/Install/Fetch.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/inc/Module/Install/Fetch.pm (original)
+++ trunk/libclass-mop-perl/inc/Module/Install/Fetch.pm Fri Jun 20 10:32:04 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.73';
+ $VERSION = '0.75';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libclass-mop-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/inc/Module/Install/Makefile.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libclass-mop-perl/inc/Module/Install/Makefile.pm Fri Jun 20 10:32:04 2008
@@ -7,7 +7,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.73';
+ $VERSION = '0.75';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libclass-mop-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/inc/Module/Install/Metadata.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libclass-mop-perl/inc/Module/Install/Metadata.pm Fri Jun 20 10:32:04 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.73';
+ $VERSION = '0.75';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
@@ -30,6 +30,7 @@
requires
recommends
bundles
+ resources
};
sub Meta { shift }
@@ -72,7 +73,7 @@
my $version = shift || 0;
push @{ $self->{values}->{configure_requires} }, [ $module, $version ];
}
- $self->{values}{configure_requires};
+ $self->{values}->{configure_requires};
}
sub recommends {
@@ -82,7 +83,7 @@
my $version = shift || 0;
push @{ $self->{values}->{recommends} }, [ $module, $version ];
}
- $self->{values}{recommends};
+ $self->{values}->{recommends};
}
sub bundles {
@@ -92,7 +93,24 @@
my $version = shift || 0;
push @{ $self->{values}->{bundles} }, [ $module, $version ];
}
- $self->{values}{bundles};
+ $self->{values}->{bundles};
+}
+
+# Resource handling
+sub resources {
+ my $self = shift;
+ while ( @_ ) {
+ my $resource = shift or last;
+ my $value = shift or next;
+ push @{ $self->{values}->{resources} }, [ $resource, $value ];
+ }
+ $self->{values}->{resources};
+}
+
+sub repository {
+ my $self = shift;
+ $self->resources( repository => shift );
+ return 1;
}
# Aliases for build_requires that will have alternative
@@ -294,7 +312,7 @@
if (
Module::Install::_read($_[0]) =~ m/
^
- use \s*
+ (?:use|require) \s*
v?
([\d_\.]+)
\s* ;
Modified: trunk/libclass-mop-perl/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/inc/Module/Install/Win32.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/inc/Module/Install/Win32.pm (original)
+++ trunk/libclass-mop-perl/inc/Module/Install/Win32.pm Fri Jun 20 10:32:04 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.73';
+ $VERSION = '0.75';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libclass-mop-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/inc/Module/Install/WriteAll.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/libclass-mop-perl/inc/Module/Install/WriteAll.pm Fri Jun 20 10:32:04 2008
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.73';
+ $VERSION = '0.75';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libclass-mop-perl/lib/Class/MOP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/lib/Class/MOP.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP.pm Fri Jun 20 10:32:04 2008
@@ -17,7 +17,7 @@
BEGIN {
- our $VERSION = '0.61';
+ our $VERSION = '0.62';
our $AUTHORITY = 'cpan:STEVAN';
*IS_RUNNING_ON_5_10 = ($] < 5.009_005)
@@ -169,7 +169,15 @@
# check for any method
foreach ( keys %{$$pack} ) {
next if substr($_, -2, 2) eq '::';
- return 1 if defined *{${$$pack}{$_}}{CODE};
+
+ my $glob = ${$$pack}{$_} || next;
+
+ # constant subs
+ if ( IS_RUNNING_ON_5_10 ) {
+ return 1 if ref $glob eq 'SCALAR';
+ }
+
+ return 1 if defined *{$glob}{CODE};
}
# fail
Modified: trunk/libclass-mop-perl/lib/Class/MOP/Attribute.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/lib/Class/MOP/Attribute.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Attribute.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Attribute.pm Fri Jun 20 10:32:04 2008
@@ -9,7 +9,7 @@
use Carp 'confess';
use Scalar::Util 'blessed', 'weaken';
-our $VERSION = '0.61';
+our $VERSION = '0.62';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Object';
Modified: trunk/libclass-mop-perl/lib/Class/MOP/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/lib/Class/MOP/Class.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Class.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Class.pm Fri Jun 20 10:32:04 2008
@@ -11,7 +11,7 @@
use Carp 'confess';
use Scalar::Util 'blessed', 'weaken';
-our $VERSION = '0.61';
+our $VERSION = '0.62';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Module';
Modified: trunk/libclass-mop-perl/lib/Class/MOP/Immutable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/lib/Class/MOP/Immutable.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Immutable.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Immutable.pm Fri Jun 20 10:32:04 2008
@@ -9,7 +9,7 @@
use Carp 'confess';
use Scalar::Util 'blessed';
-our $VERSION = '0.61';
+our $VERSION = '0.62';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Object';
Modified: trunk/libclass-mop-perl/lib/Class/MOP/Instance.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/lib/Class/MOP/Instance.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Instance.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Instance.pm Fri Jun 20 10:32:04 2008
@@ -6,7 +6,7 @@
use Scalar::Util 'weaken', 'blessed';
-our $VERSION = '0.61';
+our $VERSION = '0.62';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Object';
Modified: trunk/libclass-mop-perl/lib/Class/MOP/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/lib/Class/MOP/Method.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Method.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Method.pm Fri Jun 20 10:32:04 2008
@@ -7,7 +7,7 @@
use Carp 'confess';
use Scalar::Util 'blessed';
-our $VERSION = '0.61';
+our $VERSION = '0.62';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Object';
Modified: trunk/libclass-mop-perl/lib/Class/MOP/Method/Accessor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/lib/Class/MOP/Method/Accessor.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Method/Accessor.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Method/Accessor.pm Fri Jun 20 10:32:04 2008
@@ -7,7 +7,7 @@
use Carp 'confess';
use Scalar::Util 'blessed', 'weaken';
-our $VERSION = '0.61';
+our $VERSION = '0.62';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Method::Generated';
Modified: trunk/libclass-mop-perl/lib/Class/MOP/Method/Constructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/lib/Class/MOP/Method/Constructor.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Method/Constructor.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Method/Constructor.pm Fri Jun 20 10:32:04 2008
@@ -7,7 +7,7 @@
use Carp 'confess';
use Scalar::Util 'blessed', 'weaken', 'looks_like_number';
-our $VERSION = '0.61';
+our $VERSION = '0.62';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Method::Generated';
Modified: trunk/libclass-mop-perl/lib/Class/MOP/Method/Generated.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/lib/Class/MOP/Method/Generated.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Method/Generated.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Method/Generated.pm Fri Jun 20 10:32:04 2008
@@ -6,7 +6,7 @@
use Carp 'confess';
-our $VERSION = '0.61';
+our $VERSION = '0.62';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Method';
Modified: trunk/libclass-mop-perl/lib/Class/MOP/Method/Wrapped.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/lib/Class/MOP/Method/Wrapped.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Method/Wrapped.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Method/Wrapped.pm Fri Jun 20 10:32:04 2008
@@ -7,7 +7,7 @@
use Carp 'confess';
use Scalar::Util 'blessed';
-our $VERSION = '0.61';
+our $VERSION = '0.62';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Method';
Modified: trunk/libclass-mop-perl/lib/Class/MOP/Module.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/lib/Class/MOP/Module.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Module.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Module.pm Fri Jun 20 10:32:04 2008
@@ -6,7 +6,7 @@
use Scalar::Util 'blessed';
-our $VERSION = '0.61';
+our $VERSION = '0.62';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Package';
@@ -88,4 +88,4 @@
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
-=cut
+=cut
Modified: trunk/libclass-mop-perl/lib/Class/MOP/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/lib/Class/MOP/Object.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Object.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Object.pm Fri Jun 20 10:32:04 2008
@@ -6,7 +6,7 @@
use Scalar::Util 'blessed';
-our $VERSION = '0.61';
+our $VERSION = '0.62';
our $AUTHORITY = 'cpan:STEVAN';
# introspection
Modified: trunk/libclass-mop-perl/lib/Class/MOP/Package.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/lib/Class/MOP/Package.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Package.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Package.pm Fri Jun 20 10:32:04 2008
@@ -7,7 +7,7 @@
use Scalar::Util 'blessed';
use Carp 'confess';
-our $VERSION = '0.61';
+our $VERSION = '0.62';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Object';
Modified: trunk/libclass-mop-perl/lib/metaclass.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/lib/metaclass.pm?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/metaclass.pm (original)
+++ trunk/libclass-mop-perl/lib/metaclass.pm Fri Jun 20 10:32:04 2008
@@ -7,7 +7,7 @@
use Carp 'confess';
use Scalar::Util 'blessed';
-our $VERSION = '0.61';
+our $VERSION = '0.62';
our $AUTHORITY = 'cpan:STEVAN';
use Class::MOP;
Modified: trunk/libclass-mop-perl/t/083_load_class.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/t/083_load_class.t?rev=21938&op=diff
==============================================================================
--- trunk/libclass-mop-perl/t/083_load_class.t (original)
+++ trunk/libclass-mop-perl/t/083_load_class.t Fri Jun 20 10:32:04 2008
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 11;
+use Test::More tests => 13;
use Test::Exception;
require Class::MOP;
@@ -33,3 +33,9 @@
Class::MOP::load_class('SyntaxError');
} qr/Missing right curly/;
+{
+ package Other;
+ use constant foo => "bar";
+}
+
+lives_ok { ok(Class::MOP::is_class_loaded("Other")) } "a class with just constants is still a class";
More information about the Pkg-perl-cvs-commits
mailing list