dokuwiki

## Bla.pm
package Bla;
use Moose;


sub foo {
  my ($self) = shift;
  print "se foo\n";
}

1;

## BlaExt.pm
package Bla;
use Moose;


sub foo {
  my ($self) = shift;
  print "se foo\n";
}

1;

## use_bla.pl
use strict;
use warnings;

use BlaExt;

my $bla = BlaExt->new();
$bla->foo;

## BlaExt::foo(); # won't work because Class Methods arent't inherited