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

package Example;

# Can variables be defined here? With package level 
# visibility?

sub new {
    my $class = shift;

    my $self = {
        _name => shift,
        _score => shift,
    };

    bless $self, $class;
    return $self;
}

sub getName {
    my ($self) = @_;
    return $self->{_name} || 'No name has been defined!';
}

sub getScore {
    my ($self) = @_;
    return $self->{_score} || 'No score has been entered!';
}

1;