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

package Foo;
sub bar { }

package Baz;
our @ISA = qw( Foo );
sub bar {
	my $self = shift;
	print $self->SUPER::can( "bar" ), "\n";
	print $self->can( "SUPER::bar" ), "\n";
};

package main;

print UNIVERSAL::can( Baz => "bar" ), "\n";

Baz->bar;

__END__
CODE(0x815a230)
CODE(0x815a230)
CODE(0x813bc4c)