Skip to content

Instantly share code, notes, and snippets.

Avatar

Graham Knop haarg

  • Amsterdam, Netherlands
View GitHub Profile
View qr-generate.pl
use strict;
use warnings;
{
package QROverload;
use overload 'qr' => sub {
my $self = shift;
qr/(??{ $self->_as_qr($_) })/;
};
View CONTRIBUTING.md

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:

View lvalue-after.pl
use strict;
use warnings;
use Test::More;
# lvalue method
{
package Foo;
sub new { bless {}, shift }
sub attr :lvalue { $_[0]->{bar} }
}
View Needs.pm
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)
View keybase.md

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:

View Needs.pm
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};
View recurse-c3-taint.pl
use strict;
use warnings;
use mro ();
BEGIN {
package Super;
use mro 'c3';
sub foo {
$_[0]->maybe::next::method;
}
View nopaste
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
haarg / perl-todo.md
Last active Aug 5, 2022
Perl to-do list
View perl-todo.md
  • 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
View lvalue-array.pl
use strict;
use warnings;
{
package LvalueArray;
use base 'Tie::Array';
sub TIEARRAY {
my ($class, $sub, $params, $afters) = @_;
my $self = bless [ $sub, $params, $afters ], $class;
}