META.yml
MYMETA.yml
+MYMETA.json
Makefile
blib/*
inc/*
Revision history for Mouse
+0.95 2011-10-07 13:41:31
+ [TEST FIXES]
+ - Workaround for RT #71211 (maybe)
+
+0.94 2011-10-03 17:07:57
+ [BUG FIXES]
+ * Resolve #68351, tests produced deprecation warnings in 5.14
+ * Resolve #70518, a build problem in 5.15
+ * Resolve #70569, prototype mismatch warnings might happen in 5.8
+
0.93 2011-05-17 00:22:12
[BUG FIXES]
* Make sure weak attributes remain weak when cloning (Moose 2.0007)
\.c$
\.bs$
-MYMETA\.yml$
+MYMETA\.(?:yml|json)$
Moose-t/
xshelper\.h$
\.swp$
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.93';
+our $VERSION = '0.95';
use Carp ();
use Scalar::Util ();
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 SYNOPSIS
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 SYNOPSIS
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 DESCRIPTION
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 DESCRIPTION
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 DESCRIPTION
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 SEE ALSO
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 SEE ALSO
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 SEE ALSO
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 SEE ALSO
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 DESCRIPTION
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 DESCRIPTION
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 SEE ALSO
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 SEE ALSO
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 SEE ALSO
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 DESCRIPTION
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 METHODS
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 SEE ALSO
package Mouse::Role;
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.93';
+our $VERSION = '0.95';
use Carp ();
use Scalar::Util ();
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 SYNOPSIS
use strict;
use warnings;
-our $VERSION = '0.93';
+our $VERSION = '0.95';
our $MouseVersion = $VERSION;
our $MooseVersion = '1.13';
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 SYNOPSIS
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 DESCRIPTION
},
);
- our $VERSION = '0.93';
+ our $VERSION = '0.95';
my $xs = !(defined(&is_valid_class_name) || $ENV{MOUSE_PUREPERL} || $ENV{PERL_ONLY});
# definition of mro::get_linear_isa()
my $get_linear_isa;
- if (eval { require mro }) {
+ if ($] >= 5.010_000) {
+ require mro;
$get_linear_isa = \&mro::get_linear_isa;
}
else {
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 SYNOPSIS
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head2 SYNOPSIS
=head1 VERSION
-This document describes Mouse version 0.93
+This document describes Mouse version 0.95
=head1 DESCRIPTION
#ifndef MOUSE_H
#define MOUSE_H
+#define PERL_EUPXS_ALWAYS_EXPORT
+
#include "xshelper.h"
#ifndef mro_get_linear_isa
diag " Class::MOP: $Class::MOP::VERSION";
diag " Moose: $Moose::VERSION";
-if($xs) { # display info for CPAN testers
- if(open my $in, '<', 'Makefile') {
- diag 'xsubpp settings:';
- while(<$in>) {
- if(/^XSUBPP/) {
- diag $_;
- }
- }
- }
-}
-
use Tie::Hash;
use Tie::Array;
+
{
{
package My::Role;
is_deeply \%th_clone, \%th, 'the hash iterator is initialized';
-{
+
+for my $i(1 .. 2) {
+ diag "derived from parameterized types #$i";
+
my $myhashref = subtype 'MyHashRef',
as 'HashRef[Value]',
where { keys %$_ > 1 };
ok $myhashref->is_a_type_of('HashRef'), "$myhashref";
ok $myhashref->check({ a => 43, b => 100 });
- ok !$myhashref->check({ a => 43, b => 3.14 });
- ok !$myhashref->check({});
+ ok $myhashref->check({ a => 43, b => 100, c => 0 });
+ ok !$myhashref->check({}), 'empty hash';
+ ok !$myhashref->check({ foo => 42 });
+ ok !$myhashref->check({ a => 43, b => "foo" });
ok !$myhashref->check({ a => 42, b => [] });
+ ok !$myhashref->check({ a => 42, b => undef });
+ ok !$myhashref->check([42]);
+ ok !$myhashref->check("foo");
is $myhashref->type_parameter, 'Int';
}