package R;

    sub new {
        my $this = shift;
        my $class = ref($this) || $this;

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

##</code><code>##

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