Beta Shell v2.0

Beta Shell v2.0 · web2.us.cloudlogin.co

[FM] [CMD] [PHP] [DB] [INFO] [SEC]

File Manager

~ /usr/share/doc/perl-MooseX-Role-Parameterized/t/lib

3 items

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Bar.pm	228 B	-rw-r--r--	2019-07-16 01:33:22	Edit Del

Editing: Bar.pm (228 B)

Path: /usr/share/doc/perl-MooseX-Role-Parameterized/t/lib/Bar.pmBack

package Bar;

use MooseX::Role::Parameterized;

parameter include_is_bar => (
    isa     => 'Bool',
    default => 1,
);

role {
    my $p = shift;
    if ($p->include_is_bar) {
        method is_bar => sub { 1 };
    }
};

1;