Skip to content
This repository
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 17 lines (11 sloc) 0.266 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/usr/bin/perl

use perl5i::latest;
use Test::More;

{
    package Foo;
    sub bar { 42 }
}

my $class = "Foo";
ok $class->can("bar"), "autoboxing vs can()";

ok $class->UNIVERSAL::can("bar"), " no really, it should work";

done_testing();
Something went wrong with that request. Please try again.