Dear Brothers,
I'm losing my Latin. I've made a fake example to illustrate my problem : I have a base class that define methods, and child classes that define the data returned thru package variables. However, it doesn't work as expected, I can't get any data back, probably because I'm missing some step ( guess what : I'm home and my "OO Perl" by TheDamian is at office today ). Here's the code from Parent.pm :

use strict;
use warnings;

package Parent;

use Data::Dumper ;

sub new {
    my $proto = shift ;
    return bless {}, $proto
}


sub show {
    my $self = shift ;
    
    my $proto = ref $self ;
    print $proto::data ;
    print Dumper $proto::data 
}

1;
[download]

use strict;
use warnings;

package Child;

use base 'Parent' ;

our $data = { one => 1, two => 2 } ;

1;
[download]

#!/usr/bin/perl

use strict;
use warnings;

use Child ;

my $obj = Child->new();

$obj->show();
[download]