User Tools

Site Tools


kurs:moose_inheritence
## 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
kurs/moose_inheritence.txt · Last modified: 2014/09/10 21:22 (external edit)