haarg

use strict;
use warnings;

{
  package QROverload;
  use overload 'qr' => sub {
    my $self = shift;
    qr/(??{ $self->_as_qr($_) })/;
  };

haarg

Contributing

Thank you for considering contributing to this distribution. This file contains instructions that will help you work with the source code.

Contact

If you have any issues or questions, you can reach out to the other developers in a number of ways:

haarg

use strict;
use warnings;
use Test::More;

# lvalue method
{
  package Foo;
  sub new { bless {}, shift }
  sub attr :lvalue { $_[0]->{bar} }
}

haarg

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)

haarg

Keybase proof

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:

haarg

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};

haarg

use strict;
use warnings;
use mro ();

BEGIN {
  package Super;
  use mro 'c3';
  sub foo {
    $_[0]->maybe::next::method;
  }

haarg

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 {

haarg

• 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

haarg

use strict;
use warnings;

{
  package LvalueArray;
  use base 'Tie::Array';
  sub TIEARRAY {
    my ($class, $sub, $params, $afters) = @_;
    my $self = bless [ $sub, $params, $afters ], $class;
  }