#!/usr/bin/perl
use Employee;
use strict;
use warnings;

my $object = new Person( "Thanos", "Test", 123456);
# Get first name which is set using constructor.
my $firstName = $object->getFirstName();

print "Before Setting First Name is : $firstName\n";

# Now Set first name using helper function.
$object->setFirstName( "Than." );

# Now get first name set by helper function.
$firstName = $object->getFirstName();
print "Before Setting First Name is : $firstName\n";
[download]

#!/usr/bin/perl 
use strict;
use warnings;

package Person;

sub new
{
    my $class = shift;
    my $self = {
        _firstName => shift,
        _lastName  => shift,
        _ssn       => shift,
    };
    # Print all the values just for clarification.
    print "First Name is $self->{_firstName}\n";
    print "Last Name is $self->{_lastName}\n";
    print "SSN is $self->{_ssn}\n";
    bless $self, $class;
    return $self;
}
sub setFirstName {
    my ( $self, $firstName ) = @_;
    $self->{_firstName} = $firstName if defined($firstName);
    return $self->{_firstName};
}

sub getFirstName {
    my( $self ) = @_;
    return $self->{_firstName};
}
1;
[download]

#!/usr/bin/perl
use strict;
use warnings;

package Employee;
use Person;

our @ISA = qw(Person);    # inherits from Person

my $firstName = $object->getFirstName();
print "This is the first name: " . $firstName . "\n";

1;

=comment
    How can I use the method my $firstName = $object->getFirstName();
without creating the object?
=cut
[download]