Select Code to Download

    package R;

...
        my $self = { @_ };
        bless $self, $class;
    }

    my $r1 = new R;
    my $r2 = new R (foo => 'bar');
    my $r3 = new R (baz => 'quux', foo => 'bar');