Gecko [ www.vortexaion.com ]

Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.140
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
Param	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Param.pm	3.7 KB	-rw-rw-rw-	2017-04-01 18:28
ParamCollection.pm	418 B	-rw-rw-rw-	2017-04-01 18:28
Sig.pm	3.15 KB	-rw-rw-rw-	2017-04-01 18:28
TypeConstraint.pm	5.02 KB	-rw-rw-rw-	2017-04-01 18:28
Types.pm	1.03 KB	-rw-rw-rw-	2017-04-01 18:28

Rename

use strict;
use warnings;

package Parse::Method::Signatures::Types;

use Moose::Util::TypeConstraints;
use MooseX::Types::Moose qw/Str ArrayRef/;
use namespace::clean;

use MooseX::Types -declare => [qw/
    VariableName
    TypeConstraint
    Param
    ParamCollection
    PositionalParam
    NamedParam
    UnpackedParam
/];

subtype VariableName,
    as Str,
    where { /^[\$@%](?:[a-z_][a-z_\d]*)?$/i },
    message { 'not a valid variable name' };

subtype TypeConstraint,
    as 'Moose::Meta::TypeConstraint';

class_type Param, { class => 'Parse::Method::Signatures::Param' };

class_type ParamCollection, { class => 'Parse::Method::Signatures::ParamCollection' };

coerce ParamCollection,
    from ArrayRef,
    via { Parse::Method::Signatures::ParamCollection->new(params => $_) };

role_type PositionalParam, { role => 'Parse::Method::Signatures::Param::Positional' };
role_type NamedParam,      { role => 'Parse::Method::Signatures::Param::Named'      };
role_type UnpackedParam,   { role => 'Parse::Method::Signatures::Param::Unpacked'   };