in reply to Re: A Class inside a Perl script?
in thread A Class inside a Perl script?

I revamped the code to look like: 
#!/usr/bin/perl

package test;

use strict;
use warnings;
use Switch;

sub new
{
    my $class = shift;
    my $self = {
        host => "127.0.0.1",
        server  => "localhost", 
        username  => "user1", 
        password  => "passwd",
        name  => undef,
        operation => undef
    }; 

    bless $self, 'Person';
    return $self;
}

sub echo
{
    my $self = shift;
    print $self->host;
}
1;

package main;

$eco = test->new();
$eco->echo();

[download]

No luck

Can't locate object method "echo" via package "Person" at ./test line 34.

Is the error that I am getting.
Why is it taking the name of the package as "Person" instead of "test"?
My perl is: perl, v5.8.8 built for i386-linux-thread-multi
on RHEL5

Replies are listed 'Best First'.
Re^3: A Class inside a Perl script?
by Corion (Patriarch) on Jun 02, 2009 at 09:15 UTC

    bless tells you why your program is looking for a package named Person. And don't, ever, use Switch. It is a bad idea to even mention in your source code, because it has nasty side-effects. If you use Perl 5.10, you can use the new given keyword instead, otherwise just use a chain of if..elsif..else or a dispatch table.

[reply]
[d/l]
[select]
      ... or even use an instance of the poor mans switch

      A user level that continues to overstate my experience :-))
[reply]
      And don't, ever, use Switch. It is a bad idea to even mention in your source code, because it has nasty side-effects.
      Could you expand on that or provide me with a link where I can find more on this?
[reply]
[reply]
Re^3: A Class inside a Perl script?
by vinoth.ree (Monsignor) on Jun 02, 2009 at 09:16 UTC

    Why is it taking the name of the package as "Person" instead of "test"?

    You are given the class name for bless as "Person" thats why .

    bless $self, 'Person';
    Vinoth,G
[reply]
[d/l]
[select]
Re^3: A Class inside a Perl script?
by targetsmart (Curate) on Jun 02, 2009 at 09:29 UTC
    Direct answers were already told by other monks, if you need insight on OO perl, see perlmod, perltoot, perlmodlib
    and this Object Oriented Perl can also guide you.
    Vivek
    -- In accordance with the prarabdha of each, the One whose function it is to ordain makes each to act. What will not happen will never happen, whatever effort one may put forth. And what will happen will not fail to happen, however much one may seek to prevent it. This is certain. The part of wisdom therefore is to stay quiet.
[reply]

In Section Seekers of Perl Wisdom