Erweitern eines Objekts in Perl

Question

Ich habe ein Basisobjekt namens RuleObject und ein Objekt, das von dem namens RuleObjectString erbt. Ich habe eine neue Methode in RuleObjectString, die ich in meinem Code aufrufen möchte, der dieses Objekt verwendet. Aber ich bekomme den Fehler. 'Die Objektmethode "compare" kann nicht über das Paket "RuleObject" in der Zeile ./testobject.pl gefunden werden.' Aber ich erstelle kein RuleObject. Ich erstelle einen RuleObjectString. Was mache ich hier falsch?

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

Ich denke, jmcneirney ist auf dem richtigen Weg. In Ihrem RuleObject Konstruktor, sagen Sie

bless $self; 

die als

die gleiche ist

bless $self, __PACKAGE__; 

oder

bless $self, 'RuleObject' 

aber was Sie wollen, ist für das Objekt gesegnet als RuleObjectString. Also, was Sie tun möchten, ist zu sagen

bless $self, $class 

Jetzt

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

den gleichen Konstruktor beide nennen, aber das Objekt durch den ersten Aufruf zurückgegeben wird als RuleObject und das zweite Objekt gesegnet sein wird gesegnet als RuleObjectString.

Answer 2

das Objekt Dumping versuchen und sehen, was es ist.

print Dumper($s) 

Es wird ein RuleObject sein.

Sie müssen möglicherweise eine neue() in RuleObjectString definieren und Super :: new() aufrufen.

Answer 3

Das ist 2012, also sollten Sie überlegen, richtige OOP-Lösungen zu verwenden, anstatt das Rad neu zu erfinden.

von Moose verwenden, wäre die Lösung so etwas wie dieses (nicht getestet) aussehen:

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; 

einfach! :)