This is the first time I've tried writing a child class to a parent class. I've been googling and PerlMonk'ing for days and I'm still missing something that is obviously important.

I want to have a perl script where I call MyParent and MyParent::MyChild. Then in the code, create the object for MyParent and access the methods in MyParent::MyChild.

This is the MyParent class (MyParent.pm):

package MyParent;
use strict;
no strict "refs";
use Carp qw(carp croak);

our $VERSION = .01;

sub new {
    my $class = shift;
    bless {
        something => "foo",
    }, $class;
    return $self;
}


sub parent_nifty_method1 {
   print $_[0]->{something};
}

sub parent_nifty_method2 {
   ... pah ...
}
[download]

Then comes the child class MyParent::MyChild (MyChild.pm):

package MyParent::MyChild;
use strict;
no strict "refs";
use Carp qw(carp croak);
use parent qw(MyParent);

our @ISA = qw(MyParent);

our @EXPORT = qw( method_a method_b );

my $VERSION = .01;

sub new {
    my $class = shift;
    my $this = bless {}, $class;
    my( $parent ) = @_;
    $this->{PARENT} = $parent;
    return $this;
}

sub child_method_a {
   #read parent variable, not change it
   print MyParent->{something};
}

sub child_method_b {
   ... incredibly cool stuff ...
}
[download]

Now comes the Perl script running on the web server and what I would LIKE to do, but can't make it work, probably because I don't drink enough coffee.

script_to_change_the_world.pl

#!/usr/bin/perl

use MyParent;
use MyParent::MyChild;
use strict;

my $parentobject = MyParent->new();

$parentobject->method1;
#prints: Foo

#Now I want to access something or other in the MyChild, doing it this
+ way (which is what inheritance means to me)

$parentobject->child_method_a;
#Prints: Foo
[download]

However, the problem is that when I do this, I get this error:

Can't locate object method "child_method_a" via package "MyParent" at 
+script_to_change_the_world.pl line 14.
[download]

I think I've tried to do TOO much in setting these up properly and I'm missing the variables for the methods (to use a metaphor).

Can some kind Monk please clarify what I'm doing wrong above?

Thanking you for your kindness and time.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.