Help for this page

Select Code to Download


  1. or download this
    warn "default_values: " . \%default_values;
    my $self = ref($class) ? bless( \%default_values, ref($class) )
                           : bless( \%default_values, $class );
warn "self: " . $self;
  2. or download this
        my %h = %default_values;
    my $self = ref($class) ? bless( \%h, ref($class) )
                           : bless( \%h, $class );
  3. or download this
        my %h = %default_values;
    my $self = bless( \%h, ref($class) || $class );