use_base

use_base.pl

#!/usr/bin/env perl

use strict;
use warnings;

package Foo;

sub hoge{ return "hello" }


package Bar;

use base ( 'Foo' );
sub new{ bless {}, 'Bar' }


package main;

my $bar = Bar->new;
print $bar->hoge;