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

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

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

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;

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