#!usr/bin/perl -w
use strict;

#Demonstrate and test usage
my $test = Test::new();
$test->defaults();
$test->defaults(0);
$test->defaults(0, 0);
$test->defaults(0, 0, 0);

package Test;
    sub new {
        my $self = {};
        bless($self);
        return $self;
    }

    #This is the pertinent part...
    sub defaults {
        my ($self, $default1, $default2, $default3) = @_;
        $default1 = 1 if($#_ < 1); #Is there a better way to do this?
        $default2 = 2 if($#_ < 2);
        $default3 = 3 if($#_ < 3);
        print("$default1 $default2 $default3\n");
    }
1;