Help for this page

Select Code to Download


  1. or download this
    use Attribute::Property;
    
    ...
        my $self = shift;
        ...
    }
    
  2. or download this
    my %params = (
        type  => qr/Order|Return/,
    ...
    # the following two method calls will fail (croaking)
    $param->type = 'Ovid';
    $param->month = 13;
    
  3. or download this
    my $param = @_ == 1 ? shift : Param::function->new({ @_ });