Estensione di un oggetto in Perl

Question

Ho un oggetto base chiamato RuleObject e un oggetto che eredita da quello chiamato RuleObjectString. Ho un nuovo metodo in RuleObjectString che voglio chiamare nel mio codice che usa quell'oggetto. Ma ottengo l'errore. 'Impossibile trovare il metodo dell'oggetto "compare" tramite il pacchetto "RuleObject" in ./testobject.pl riga 10. " Ma non sto creando un RuleObject. Sto creando un RuleObjectString. Cosa sto facendo di sbagliato qui?

testobject.pl

1 #! /usr/bin/perl 
    2 
    3 use strict; 
    4 
    5 use RuleObjectString; 
    6 
    7 my $s = RuleObjectString->new(); 
    8 $s->value('stuff goes here'); 
    9 
10 if ($s->compare('stuff')){ 
11   print "MATCH!\n"; 
12 }else{ 
13   print "no match :(\n"; 
14 } 

RuleObject.pm

package RuleObject; 

our @ISA = qw/Exporter/; 
our @EXPORT = qw/new/; 

use strict; 

sub new{ 
     my $class = shift; 

     my $self; 
     $self->{value} = undef; 

     bless $self; 
     return $self; 
} 

sub value{ 
     my $self = shift; 
     my $value = shift; 
     if ($value){ 
       $self->{value} = $value; 
     }else{ 
       return $self->{value}; 
     } 
} 

RuleObjectString.pm

package RuleObjectString; 

our @ISA = qw/RuleObject/; 
our @EXPORT = qw/compare/; 

use strict; 

sub compare{ 
     my $self = shift; 
     my $compareto = shift; 

     return $self->value() =~ /$compareto/; 
} 

Answer 1

Penso che jmcneirney sia sulla strada giusta. Nella tua RuleObject costruttore, si dice

bless $self; 

, che è lo stesso di

bless $self, __PACKAGE__; 

o

bless $self, 'RuleObject' 

ma quello che vogliamo è che l'oggetto benedetto come RuleObjectString. Quindi, ciò che si vuole fare è dire

bless $self, $class 

Ora

RuleObject->new() 
RuleObjectString->new() 

saranno entrambi chiamare lo stesso costruttore, ma l'oggetto restituito dalla prima chiamata sarà benedetto come un RuleObject e il secondo oggetto sarà benedetto come RuleObjectString.

Answer 2

Prova di dumping l'oggetto e vedere di cosa si tratta.

print Dumper($s) 

Sarà un RuleObject.

Potrebbe essere necessario definire un nuovo() in RuleObjectString e chiamarlo Super :: new().

Answer 3

Questo è il 2012, quindi è consigliabile prendere in considerazione l'utilizzo di soluzioni OOP appropriate invece di reinventare nuovamente la ruota.

Utilizzando Moose, la soluzione sarebbe simile a questa (non testata):

RuleObject.pm

package RuleObject; 
use Moose; 

has 'value' => (isa => 'Str', is => 'rw', required => 0, default => ''); 

1; 

RuleObjectString.pm

package RuleObjectString; 
use Moose; 

extends 'RuleObject'; 

sub compare { 
    my $self  = shift; 
    my $compareto = shift; 

    return $self->value =~ /$compareto/; 
} 

1; 

semplice! :)