Revision history for Mouse
-0.77
+0.77 Wed Sep 29 21:35:11 2010
[BUG FIXES]
+ * Fix tests failed against 5.6.2
* Combination of 'isa' and 'does' for has() sugar was incorrectly
proccessed in Mouse::PurePerl.
* Fix foreign class checking routines. Please update MouseX::Foreign.
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.76';
+our $VERSION = '0.77';
use Carp qw(confess);
use Scalar::Util qw(blessed);
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 SYNOPSIS
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 SYNOPSIS
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 DESCRIPTION
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 DESCRIPTION
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 DESCRIPTION
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 SEE ALSO
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 SEE ALSO
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 SEE ALSO
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 SEE ALSO
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 DESCRIPTION
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 DESCRIPTION
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 SEE ALSO
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 SEE ALSO
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 SEE ALSO
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 DESCRIPTION
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 METHODS
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 SEE ALSO
package Mouse::Role;
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.76';
+our $VERSION = '0.77';
use Carp qw(confess);
use Scalar::Util qw(blessed);
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 SYNOPSIS
use strict;
use warnings;
-our $VERSION = '0.76';
+our $VERSION = '0.77';
our $MouseVersion = $VERSION;
our $MooseVersion = '1.13';
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 SYNOPSIS
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 DESCRIPTION
},
);
- our $VERSION = '0.76';
+ our $VERSION = '0.77';
my $xs = !(defined(&is_valid_class_name) || $ENV{MOUSE_PUREPERL} || $ENV{PERL_ONLY});
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 SYNOPSIS
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head2 SYNOPSIS
=head1 VERSION
-This document describes Mouse version 0.76
+This document describes Mouse version 0.77
=head1 DESCRIPTION
extends qw(CB CA);
has cc => (is => 'rw');
};
-with_immutable sub {
+with_immutable {
my $obj = Child->new(class => 1, child => 1);
ok($obj->child, "local attribute set in constructor");
ok($obj->class, "inherited attribute set in constructor");
CA->meta->get_attribute('ca'),
Class->meta->get_attribute('class'),
)], "correct get_all_attributes");
-}, qw(Class CA CB CC);
+} 'Class', 'CA', 'CB', 'CC';
do {
package Foo;
is_deeply([Bar->meta->get_all_attributes], [
Bar->meta->get_attribute('attr'),
], "correct get_all_attributes");
-} qw(Foo Bar);
+} 'Foo', 'Bar';
done_testing;