#!/usr/bin/perl
use strict;
use warnings;

BEGIN { print "can=", __PACKAGE__->can('fred'), ";\n"; }
sub fred { print "fred\n"; }
print "can=", __PACKAGE__->can('fred'), ";\n";
fred;
undef &fred;
print "can=", __PACKAGE__->can('fred'), ";\n";
fred;