- Moo
- c3 new chaining
- c3 attributes
- isa change handling
- refs in hints
- inhale Moose parent (RT#105710)
_constructor_maker_for
without install_delayed
- Package::Stash
- package name restrictions
- CPAN::Changes
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
{ | |
package QROverload; | |
use overload 'qr' => sub { | |
my $self = shift; | |
qr/(??{ $self->_as_qr($_) })/; | |
}; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
use Test::More; | |
# lvalue method | |
{ | |
package Foo; | |
sub new { bless {}, shift } | |
sub attr :lvalue { $_[0]->{bar} } | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package Test::Needs; | |
use strict; | |
use warnings; | |
no warnings 'once'; | |
our $VERSION = '0.002005'; | |
$VERSION =~ tr/_//d; | |
BEGIN { | |
*_WORK_AROUND_HINT_LEAKAGE | |
= "$]" < 5.011 && !("$]" >= 5.009004 && "$]" < 5.010001) |
I hereby claim:
- I am haarg on github.
- I am haarg (https://keybase.io/haarg) on keybase.
- I have a public key whose fingerprint is D35F 2849 914B 9653 2894 A881 1211 A7DB B2CE CB93
To claim this, I am signing this object:
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package Test::Needs; | |
use strict; | |
use warnings; | |
our $VERSION = '0.002002'; | |
$VERSION =~ tr/_//d; | |
BEGIN { | |
*_WORK_AROUND_HINT_LEAKAGE | |
= "$]" < 5.011 && !("$]" >= 5.009004 && "$]" < 5.010001) | |
? sub(){1} : sub(){0}; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
use mro (); | |
BEGIN { | |
package Super; | |
use mro 'c3'; | |
sub foo { | |
$_[0]->maybe::next::method; | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git i/lib/MRO/Compat.pm w/lib/MRO/Compat.pm | |
index be0fc80..d4c0968 100644 | |
--- i/lib/MRO/Compat.pm | |
+++ w/lib/MRO/Compat.pm | |
@@ -360,12 +360,19 @@ =head2 mro::get_pkg_gen($classname) | |
=cut | |
{ | |
- my $__pkg_gen = 2; | |
- sub __get_pkg_gen_pp { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
{ | |
package LvalueArray; | |
use base 'Tie::Array'; | |
sub TIEARRAY { | |
my ($class, $sub, $params, $afters) = @_; | |
my $self = bless [ $sub, $params, $afters ], $class; | |
} |
NewerOlder