Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
lib64
/
perl5
/
vendor_perl
/
Squirrel
Upload
3 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
Role.pm
819 B
-rw-r--r--
2019-10-27 19:43:25
Edit
Del
Editing: Role.pm
(819 B)
Path: /usr/lib64/perl5/vendor_perl/Squirrel/Role.pm
Back
package Squirrel::Role; use strict; use warnings; use base qw(Squirrel); sub _choose_backend { if ( $INC{"Moose/Role.pm"} ) { return { backend => 'Moose::Role', import => \&Moose::Role::import, unimport => \&Moose::Role::unimport, } } else { require Mouse::Role; return { backend => 'Mouse::Role', import => \&Mouse::Role::import, unimport => \&Mouse::Role::unimport, } } } 1; __END__ =head1 NAME Squirrel::Role - Use Mouse::Role, unless Moose::Role is already loaded. (DEPRECATED) =head1 SYNOPSIS use Squirrel::Role; =head1 DEPRECATION C<Squirrel::Role> is deprecated. C<Any::Moose> provides the same functionality, but better. :) =head1 SEE ALSO L<Any::Moose> =cut