Help for this page

Select Code to Download


  1. or download this
    # My/Role.pm
    package My::Role;
    use Moo::Role;
    ...
        my ($params, $mop) = @_;
        $mop->has($params->{name} => is => $params->{is});
    }
    
  2. or download this
    # My/Obj.pm
    package My::Obj;
    use Moo;
    ...
        name => 'size',
        is   => 'ro',
    });
    
  3. or download this
    package My::Obj;
    use Moo;
    use MooX::Role::Parameterized::With 'My::Role' => {
        name => 'size',
        is   => 'ro',
    };
    
  4. or download this
    package My::Obj;
    use Moo;
    use MooX::Role::Parameterized::With 0.501;
    ...
        name => 'size',
        is   => 'ro',
    };
    
  5. or download this
    package My::Role;
    use Moo::Role;
    use MooX::Role::Parameterized 0.501;
    ...
        my ($params, $mop) = @_;
        $mop->has($params->name => is => $params->is);
    }