r17574 - in /trunk/libclass-mop-perl: ./ debian/ lib/ lib/Class/ lib/Class/MOP/ t/
roberto at users.alioth.debian.org
roberto at users.alioth.debian.org
Sun Mar 16 02:24:27 UTC 2008
Author: roberto
Date: Sun Mar 16 02:24:26 2008
New Revision: 17574
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=17574
Log:
* New upstream release.
Added:
trunk/libclass-mop-perl/MANIFEST.SKIP
- copied unchanged from r17573, branches/upstream/libclass-mop-perl/current/MANIFEST.SKIP
trunk/libclass-mop-perl/t/024_attribute_initializer.t
- copied unchanged from r17573, branches/upstream/libclass-mop-perl/current/t/024_attribute_initializer.t
trunk/libclass-mop-perl/t/042_metaclass_incompatibility_dyn.t
- copied unchanged from r17573, branches/upstream/libclass-mop-perl/current/t/042_metaclass_incompatibility_dyn.t
trunk/libclass-mop-perl/t/043_instance_metaclass_incompat.t
- copied unchanged from r17573, branches/upstream/libclass-mop-perl/current/t/043_instance_metaclass_incompat.t
trunk/libclass-mop-perl/t/044_instance_metaclass_incompat_dyn.t
- copied unchanged from r17573, branches/upstream/libclass-mop-perl/current/t/044_instance_metaclass_incompat_dyn.t
trunk/libclass-mop-perl/t/046_rebless_instance.t
- copied unchanged from r17573, branches/upstream/libclass-mop-perl/current/t/046_rebless_instance.t
trunk/libclass-mop-perl/t/047_rebless_with_extra_params.t
- copied unchanged from r17573, branches/upstream/libclass-mop-perl/current/t/047_rebless_with_extra_params.t
trunk/libclass-mop-perl/t/082_get_code_info.t
- copied unchanged from r17573, branches/upstream/libclass-mop-perl/current/t/082_get_code_info.t
Removed:
trunk/libclass-mop-perl/t/042_metaclass_incompatibility_dynamic.t
trunk/libclass-mop-perl/t/043_instance_metaclass_incompatibility.t
trunk/libclass-mop-perl/t/044_instance_metaclass_incompatibility_dynamic.t
Modified:
trunk/libclass-mop-perl/Changes
trunk/libclass-mop-perl/MANIFEST
trunk/libclass-mop-perl/META.yml
trunk/libclass-mop-perl/README
trunk/libclass-mop-perl/debian/changelog
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/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/010_self_introspection.t
trunk/libclass-mop-perl/t/014_attribute_introspection.t
trunk/libclass-mop-perl/t/101_InstanceCountingClass_test.t
trunk/libclass-mop-perl/t/102_InsideOutClass_test.t
trunk/libclass-mop-perl/t/103_Perl6Attribute_test.t
trunk/libclass-mop-perl/t/104_AttributesWithHistory_test.t
trunk/libclass-mop-perl/t/105_ClassEncapsulatedAttributes_test.t
trunk/libclass-mop-perl/t/106_LazyClass_test.t
trunk/libclass-mop-perl/t/107_C3MethodDispatchOrder_test.t
trunk/libclass-mop-perl/t/108_ArrayBasedStorage_test.t
Modified: trunk/libclass-mop-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/Changes?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/Changes (original)
+++ trunk/libclass-mop-perl/Changes Sun Mar 16 02:24:26 2008
@@ -1,4 +1,42 @@
Revision history for Perl extension Class-MOP.
+
+0.54 Fri. March, 14, 2008
+ * Class::MOP
+ metaclass.pm
+ - making sure that load_class never gets
+ passed a value from @_ or $_ to squash
+ Ovid's bug (http://use.perl.org/~Ovid/journal/35763)
+
+ * Class::MOP::Class
+ - make_{immutable,mutable} now return 1
+ (cause Sartak asked)
+ - improved error handling in ->create method
+ - rebless_instance now takes extra params which
+ will be used to populate values
+ - added tests for this
+
+ * Class::MOP::Object
+ - localizing the Data::Dumper configurations so
+ that it does not pollute others (RT #33509)
+
+ * Class::MOP::Class
+ Class::MOP::Package
+ Class::MOP::Module
+ Class::MOP::Method
+ Class::MOP::Attribute
+ - these classes no longer define their own ->meta,
+ but instead just inherit from Class::MOP::Object
+
+ * Class::MOP::Instance
+ Class::MOP::Immutable
+ - these classes now inherit from Class::MOP::Object
+
+ * t/
+ - fixed the filename length on several
+ test files so we install on VMS better
+ (RT #32295)
+ - fixed incorrect use of catdir when it
+ should be catfile (RT #32385)
0.53 Thurs. Feb. 14, 1008
~~ several doc. fixes and updates ~~
Modified: trunk/libclass-mop-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/MANIFEST?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/MANIFEST (original)
+++ trunk/libclass-mop-perl/MANIFEST Sun Mar 16 02:24:26 2008
@@ -30,11 +30,12 @@
lib/Class/MOP/Object.pm
lib/Class/MOP/Package.pm
lib/metaclass.pm
+Makefile.PL
+MANIFEST
+MANIFEST.SKIP
+META.yml
MOP.xs
ppport.h
-Makefile.PL
-MANIFEST
-META.yml
README
scripts/class_browser.pl
t/000_load.t
@@ -58,14 +59,17 @@
t/021_attribute_errors_and_edge_cases.t
t/022_attribute_duplication.t
t/023_attribute_get_read_write.t
+t/024_attribute_initializer.t
t/030_method.t
t/031_method_modifiers.t
t/040_metaclass.t
t/041_metaclass_incompatability.t
-t/042_metaclass_incompatibility_dynamic.t
-t/043_instance_metaclass_incompatibility.t
-t/044_instance_metaclass_incompatibility_dynamic.t
+t/042_metaclass_incompatibility_dyn.t
+t/043_instance_metaclass_incompat.t
+t/044_instance_metaclass_incompat_dyn.t
t/045_metaclass_loads_classes.t
+t/046_rebless_instance.t
+t/047_rebless_with_extra_params.t
t/050_scala_style_mixin_composition.t
t/060_instance.t
t/061_instance_inline.t
@@ -75,6 +79,7 @@
t/073_make_mutable.t
t/080_meta_package.t
t/081_meta_package_extension.t
+t/082_get_code_info.t
t/100_BinaryTree_test.t
t/101_InstanceCountingClass_test.t
t/102_InsideOutClass_test.t
Modified: trunk/libclass-mop-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/META.yml?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/META.yml (original)
+++ trunk/libclass-mop-perl/META.yml Sun Mar 16 02:24:26 2008
@@ -20,22 +20,22 @@
provides:
Class::MOP:
file: lib/Class/MOP.pm
- version: 0.53
+ version: 0.54
Class::MOP::Attribute:
file: lib/Class/MOP/Attribute.pm
- version: 0.23
+ version: 0.24
Class::MOP::Class:
file: lib/Class/MOP/Class.pm
- version: 0.28
+ version: 0.29
Class::MOP::Immutable:
file: lib/Class/MOP/Immutable.pm
- version: 0.04
+ version: 0.05
Class::MOP::Instance:
file: lib/Class/MOP/Instance.pm
- version: 0.04
+ version: 0.05
Class::MOP::Method:
file: lib/Class/MOP/Method.pm
- version: 0.05
+ version: 0.06
Class::MOP::Method::Accessor:
file: lib/Class/MOP/Method/Accessor.pm
version: 0.02
@@ -50,18 +50,18 @@
version: 0.02
Class::MOP::Module:
file: lib/Class/MOP/Module.pm
- version: 0.02
+ version: 0.03
Class::MOP::Object:
file: lib/Class/MOP/Object.pm
- version: 0.02
+ version: 0.03
Class::MOP::Package:
file: lib/Class/MOP/Package.pm
- version: 0.07
+ version: 0.08
metaclass:
file: lib/metaclass.pm
- version: 0.04
+ version: 0.05
requires:
Carp: 0
Scalar::Util: 1.18
Sub::Name: 0.02
-version: 0.53
+version: 0.54
Modified: trunk/libclass-mop-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/README?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/README (original)
+++ trunk/libclass-mop-perl/README Sun Mar 16 02:24:26 2008
@@ -1,4 +1,4 @@
-Class::MOP version 0.53
+Class::MOP version 0.54
===========================
See the individual module documentation for more information
Modified: trunk/libclass-mop-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/debian/changelog?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/debian/changelog (original)
+++ trunk/libclass-mop-perl/debian/changelog Sun Mar 16 02:24:26 2008
@@ -1,3 +1,9 @@
+libclass-mop-perl (0.54-1) unstable; urgency=low
+
+ * New upstream release.
+
+ -- Roberto C. Sanchez <roberto at debian.org> Sat, 15 Mar 2008 22:24:09 -0400
+
libclass-mop-perl (0.53-1) unstable; urgency=low
* New upstream release.
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=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP.pm Sun Mar 16 02:24:26 2008
@@ -14,7 +14,7 @@
use Class::MOP::Immutable;
BEGIN {
- our $VERSION = '0.53';
+ our $VERSION = '0.54';
our $AUTHORITY = 'cpan:STEVAN';
use XSLoader;
@@ -77,9 +77,9 @@
my $class = shift;
no strict 'refs';
return 1 if defined ${"${class}::VERSION"} || defined @{"${class}::ISA"};
- foreach (keys %{"${class}::"}) {
- next if substr($_, -2, 2) eq '::';
- return 1 if defined &{"${class}::$_"};
+ foreach my $symbol (keys %{"${class}::"}) {
+ next if substr($symbol, -2, 2) eq '::';
+ return 1 if defined &{"${class}::${symbol}"};
}
return 0;
}
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=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Attribute.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Attribute.pm Sun Mar 16 02:24:26 2008
@@ -9,15 +9,10 @@
use Carp 'confess';
use Scalar::Util 'blessed', 'reftype', 'weaken';
-our $VERSION = '0.23';
+our $VERSION = '0.24';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Object';
-
-sub meta {
- require Class::MOP::Class;
- Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
-}
# NOTE: (meta-circularity)
# This method will be replaced in the
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=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Class.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Class.pm Sun Mar 16 02:24:26 2008
@@ -12,14 +12,10 @@
use Scalar::Util 'blessed', 'reftype', 'weaken';
use Sub::Name 'subname';
-our $VERSION = '0.28';
+our $VERSION = '0.29';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Module';
-
-# Self-introspection
-
-sub meta { Class::MOP::Class->initialize(blessed($_[0]) || $_[0]) }
# Creation
@@ -243,6 +239,18 @@
"(I found an uneven number of params in \@_)";
my (%options) = @_;
+
+ (ref $options{superclasses} eq 'ARRAY')
+ || confess "You must pass an ARRAY ref of superclasses"
+ if exists $options{superclasses};
+
+ (ref $options{attributes} eq 'ARRAY')
+ || confess "You must pass an ARRAY ref of attributes"
+ if exists $options{attributes};
+
+ (ref $options{methods} eq 'HASH')
+ || confess "You must pass an HASH ref of methods"
+ if exists $options{methods};
my $code = "package $package_name;";
$code .= "\$$package_name\:\:VERSION = '" . $options{version} . "';"
@@ -396,7 +404,7 @@
}
sub rebless_instance {
- my ($self, $instance) = @_;
+ my ($self, $instance, %params) = @_;
my $old_metaclass;
if ($instance->can('meta')) {
@@ -416,13 +424,13 @@
# rebless!
$meta_instance->rebless_instance_structure($instance, $self);
- my %params;
-
foreach my $attr ( $self->compute_all_applicable_attributes ) {
if ( $attr->has_value($instance) ) {
if ( defined( my $init_arg = $attr->init_arg ) ) {
- $params{$init_arg} = $attr->get_value($instance);
- } else {
+ $params{$init_arg} = $attr->get_value($instance)
+ unless exists $params{$init_arg};
+ }
+ else {
$attr->set_value($instance);
}
}
@@ -866,6 +874,8 @@
print STDERR "# of Metaclass options: ", keys %IMMUTABLE_OPTIONS;
print STDERR "# of Immutable transformers: ", keys %IMMUTABLE_TRANSFORMERS;
}
+
+ 1;
}
sub make_mutable{
@@ -875,6 +885,7 @@
confess "unable to find immutabilizing options" unless ref $options;
my $transformer = delete $options->{IMMUTABLE_TRANSFORMER};
$transformer->make_metaclass_mutable($self, $options);
+ 1;
}
}
@@ -1126,11 +1137,12 @@
think Yuval "nothingmuch" Kogman put it best when he said that cloning
is too I<context-specific> to be part of the MOP.
-=item B<rebless_instance($instance)>
+=item B<rebless_instance($instance, ?%params)>
This will change the class of C<$instance> to the class of the invoking
C<Class::MOP::Class>. You may only rebless the instance to a subclass of
-itself.
+itself. You may pass in optional C<%params> which are like constructor
+params and will override anything already defined in the instance.
=back
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=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Immutable.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Immutable.pm Sun Mar 16 02:24:26 2008
@@ -9,8 +9,10 @@
use Carp 'confess';
use Scalar::Util 'blessed';
-our $VERSION = '0.04';
+our $VERSION = '0.05';
our $AUTHORITY = 'cpan:STEVAN';
+
+use base 'Class::MOP::Object';
sub new {
my ($class, $metaclass, $options) = @_;
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=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Instance.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Instance.pm Sun Mar 16 02:24:26 2008
@@ -6,13 +6,10 @@
use Scalar::Util 'weaken', 'blessed';
-our $VERSION = '0.04';
+our $VERSION = '0.05';
our $AUTHORITY = 'cpan:STEVAN';
-sub meta {
- require Class::MOP::Class;
- Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
-}
+use base 'Class::MOP::Object';
sub new {
my ($class, $meta, @attrs) = @_;
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=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Method.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Method.pm Sun Mar 16 02:24:26 2008
@@ -6,9 +6,8 @@
use Carp 'confess';
use Scalar::Util 'reftype', 'blessed';
-#use B 'svref_2object';
-our $VERSION = '0.05';
+our $VERSION = '0.06';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Object';
@@ -17,13 +16,6 @@
# if poked in the right way,
# they should act like CODE refs.
use overload '&{}' => sub { $_[0]->body }, fallback => 1;
-
-# introspection
-
-sub meta {
- require Class::MOP::Class;
- Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
-}
# construction
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=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Module.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Module.pm Sun Mar 16 02:24:26 2008
@@ -6,17 +6,10 @@
use Scalar::Util 'blessed';
-our $VERSION = '0.02';
+our $VERSION = '0.03';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Package';
-
-# introspection
-
-sub meta {
- require Class::MOP::Class;
- Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
-}
sub version {
my $self = shift;
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=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Object.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Object.pm Sun Mar 16 02:24:26 2008
@@ -6,7 +6,7 @@
use Scalar::Util 'blessed';
-our $VERSION = '0.02';
+our $VERSION = '0.03';
our $AUTHORITY = 'cpan:STEVAN';
# introspection
@@ -28,7 +28,7 @@
sub dump {
my $self = shift;
require Data::Dumper;
- $Data::Dumper::Maxdepth = shift || 1;
+ local $Data::Dumper::Maxdepth = shift || 1;
Data::Dumper::Dumper $self;
}
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=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/Class/MOP/Package.pm (original)
+++ trunk/libclass-mop-perl/lib/Class/MOP/Package.pm Sun Mar 16 02:24:26 2008
@@ -7,17 +7,10 @@
use Scalar::Util 'blessed';
use Carp 'confess';
-our $VERSION = '0.07';
+our $VERSION = '0.08';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Object';
-
-# introspection
-
-sub meta {
- require Class::MOP::Class;
- Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
-}
# creation ...
Modified: trunk/libclass-mop-perl/lib/metaclass.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/lib/metaclass.pm?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/lib/metaclass.pm (original)
+++ trunk/libclass-mop-perl/lib/metaclass.pm Sun Mar 16 02:24:26 2008
@@ -7,7 +7,7 @@
use Carp 'confess';
use Scalar::Util 'blessed';
-our $VERSION = '0.04';
+our $VERSION = '0.05';
our $AUTHORITY = 'cpan:STEVAN';
use Class::MOP;
@@ -26,9 +26,14 @@
|| confess "The metaclass ($metaclass) must be derived from Class::MOP::Class";
}
my %options = @_;
- #make sure the custom metaclasses get loaded
- map{ Class::MOP::load_class($options{$_}) }
- grep{ /^(attribute|method|instance)_metaclass/ } keys %options;
+
+ # make sure the custom metaclasses get loaded
+ foreach my $class (grep {
+ /^(attribute|method|instance)_metaclass/
+ } keys %options) {
+ Class::MOP::load_class($options{$class})
+ }
+
my $package = caller();
# create a meta object so we can install &meta
Modified: trunk/libclass-mop-perl/t/010_self_introspection.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/t/010_self_introspection.t?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/t/010_self_introspection.t (original)
+++ trunk/libclass-mop-perl/t/010_self_introspection.t Sun Mar 16 02:24:26 2008
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 205;
+use Test::More tests => 199;
use Test::Exception;
BEGIN {
@@ -28,7 +28,6 @@
isa_ok($class_mop_module_meta, 'Class::MOP::Module');
my @class_mop_package_methods = qw(
- meta
initialize
@@ -42,13 +41,11 @@
);
my @class_mop_module_methods = qw(
- meta
version authority identifier
);
my @class_mop_class_methods = qw(
- meta
initialize reinitialize create
Modified: trunk/libclass-mop-perl/t/014_attribute_introspection.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/t/014_attribute_introspection.t?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/t/014_attribute_introspection.t (original)
+++ trunk/libclass-mop-perl/t/014_attribute_introspection.t Sun Mar 16 02:24:26 2008
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 61;
+use Test::More tests => 60;
use Test::Exception;
BEGIN {
@@ -20,7 +20,6 @@
isa_ok($meta, 'Class::MOP::Class');
my @methods = qw(
- meta
new clone
initialize_instance_slot
Modified: trunk/libclass-mop-perl/t/101_InstanceCountingClass_test.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/t/101_InstanceCountingClass_test.t?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/t/101_InstanceCountingClass_test.t (original)
+++ trunk/libclass-mop-perl/t/101_InstanceCountingClass_test.t Sun Mar 16 02:24:26 2008
@@ -8,7 +8,7 @@
BEGIN {
use_ok('Class::MOP');
- require_ok(File::Spec->catdir('examples', 'InstanceCountingClass.pod'));
+ require_ok(File::Spec->catfile('examples', 'InstanceCountingClass.pod'));
}
=pod
Modified: trunk/libclass-mop-perl/t/102_InsideOutClass_test.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/t/102_InsideOutClass_test.t?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/t/102_InsideOutClass_test.t (original)
+++ trunk/libclass-mop-perl/t/102_InsideOutClass_test.t Sun Mar 16 02:24:26 2008
@@ -9,7 +9,7 @@
BEGIN {
use_ok('Class::MOP');
- require_ok(File::Spec->catdir('examples', 'InsideOutClass.pod'));
+ require_ok(File::Spec->catfile('examples', 'InsideOutClass.pod'));
}
{
Modified: trunk/libclass-mop-perl/t/103_Perl6Attribute_test.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/t/103_Perl6Attribute_test.t?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/t/103_Perl6Attribute_test.t (original)
+++ trunk/libclass-mop-perl/t/103_Perl6Attribute_test.t Sun Mar 16 02:24:26 2008
@@ -8,7 +8,7 @@
BEGIN {
use_ok('Class::MOP');
- require_ok(File::Spec->catdir('examples', 'Perl6Attribute.pod'));
+ require_ok(File::Spec->catfile('examples', 'Perl6Attribute.pod'));
}
{
Modified: trunk/libclass-mop-perl/t/104_AttributesWithHistory_test.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/t/104_AttributesWithHistory_test.t?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/t/104_AttributesWithHistory_test.t (original)
+++ trunk/libclass-mop-perl/t/104_AttributesWithHistory_test.t Sun Mar 16 02:24:26 2008
@@ -8,7 +8,7 @@
BEGIN {
use_ok('Class::MOP');
- require_ok(File::Spec->catdir('examples', 'AttributesWithHistory.pod'));
+ require_ok(File::Spec->catfile('examples', 'AttributesWithHistory.pod'));
}
{
Modified: trunk/libclass-mop-perl/t/105_ClassEncapsulatedAttributes_test.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/t/105_ClassEncapsulatedAttributes_test.t?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/t/105_ClassEncapsulatedAttributes_test.t (original)
+++ trunk/libclass-mop-perl/t/105_ClassEncapsulatedAttributes_test.t Sun Mar 16 02:24:26 2008
@@ -8,7 +8,7 @@
BEGIN {
use_ok('Class::MOP');
- require_ok(File::Spec->catdir('examples', 'ClassEncapsulatedAttributes.pod'));
+ require_ok(File::Spec->catfile('examples', 'ClassEncapsulatedAttributes.pod'));
}
{
Modified: trunk/libclass-mop-perl/t/106_LazyClass_test.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/t/106_LazyClass_test.t?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/t/106_LazyClass_test.t (original)
+++ trunk/libclass-mop-perl/t/106_LazyClass_test.t Sun Mar 16 02:24:26 2008
@@ -8,7 +8,7 @@
BEGIN {
use_ok('Class::MOP');
- require_ok(File::Spec->catdir('examples', 'LazyClass.pod'));
+ require_ok(File::Spec->catfile('examples', 'LazyClass.pod'));
}
{
Modified: trunk/libclass-mop-perl/t/107_C3MethodDispatchOrder_test.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/t/107_C3MethodDispatchOrder_test.t?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/t/107_C3MethodDispatchOrder_test.t (original)
+++ trunk/libclass-mop-perl/t/107_C3MethodDispatchOrder_test.t Sun Mar 16 02:24:26 2008
@@ -12,7 +12,7 @@
plan tests => 5;
use_ok('Class::MOP');
- require_ok(File::Spec->catdir('examples', 'C3MethodDispatchOrder.pod'));
+ require_ok(File::Spec->catfile('examples', 'C3MethodDispatchOrder.pod'));
}
{
Modified: trunk/libclass-mop-perl/t/108_ArrayBasedStorage_test.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libclass-mop-perl/t/108_ArrayBasedStorage_test.t?rev=17574&op=diff
==============================================================================
--- trunk/libclass-mop-perl/t/108_ArrayBasedStorage_test.t (original)
+++ trunk/libclass-mop-perl/t/108_ArrayBasedStorage_test.t Sun Mar 16 02:24:26 2008
@@ -9,7 +9,7 @@
BEGIN {
use_ok('Class::MOP');
- require_ok(File::Spec->catdir('examples', 'ArrayBasedStorage.pod'));
+ require_ok(File::Spec->catfile('examples', 'ArrayBasedStorage.pod'));
}
{
More information about the Pkg-perl-cvs-commits
mailing list