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.52
Domains :
Cant Read [ /etc/named.conf ]
User : SISTEMA
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
C: /
xampp /
perl /
vendor /
lib /
Moose /
Exception /
Role /
Delete
Unzip
Name
Size
Permission
Date
Action
Attribute.pm
216
B
-rw-rw-rw-
2020-12-19 02:06
AttributeName.pm
187
B
-rw-rw-rw-
2020-12-19 02:06
Class.pm
384
B
-rw-rw-rw-
2020-12-19 02:06
EitherAttributeOrAttributeName.pm
1.05
KB
-rw-rw-rw-
2020-12-19 02:06
Instance.pm
180
B
-rw-rw-rw-
2020-12-19 02:06
InstanceClass.pm
188
B
-rw-rw-rw-
2020-12-19 02:06
InvalidAttributeOptions.pm
241
B
-rw-rw-rw-
2020-12-19 02:06
Method.pm
189
B
-rw-rw-rw-
2020-12-19 02:06
ParamsHash.pm
181
B
-rw-rw-rw-
2020-12-19 02:06
Role.pm
431
B
-rw-rw-rw-
2020-12-19 02:06
RoleForCreate.pm
232
B
-rw-rw-rw-
2020-12-19 02:06
RoleForCreateMOPClass.pm
230
B
-rw-rw-rw-
2020-12-19 02:06
TypeConstraint.pm
443
B
-rw-rw-rw-
2020-12-19 02:06
Save
Rename
package Moose::Exception::Role::EitherAttributeOrAttributeName; our $VERSION = '2.2014'; use Moose::Util 'throw_exception'; use Moose::Role; has 'attribute_name' => ( is => 'ro', isa => 'Str', lazy_build => 1 ); has 'attribute' => ( is => 'ro', isa => 'Class::MOP::Attribute', predicate => 'has_attribute' ); has 'params' => ( is => 'ro', isa => 'HashRef', predicate => 'has_params', ); sub _build_attribute_name { my $self = shift; if( !$self->has_attribute ) { throw_exception("NeitherAttributeNorAttributeNameIsGiven"); } return $self->attribute->name; } after "BUILD" => sub { my $self = $_[0]; if( $self->has_attribute_name && $self->has_attribute && ( $self->attribute->name ne $self->attribute_name ) ) { throw_exception( AttributeNamesDoNotMatch => attribute_name => $self->attribute_name, attribute => $self->attribute ); } }; 1;