Select Code to Download

sub obj_internal {
    my $self = shift;
    return $self->{arg1} + $self->{arg2}
}

print param(1, 2), "\n";
print named_param(arg1 => 1,arg2 => 2), "\n";
print $obj->obj_internal(), "\n";
print $obj->obj_pos_param(1, 2), "\n";
print $obj->obj_named_param(arg1 => 1,arg2 => 2), "\n";