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
Namespaced.pm	3.21 KB	-rw-rw-rw-	2015-08-16 07:29
Parameterized.pm	3.21 KB	-rw-rw-rw-	2015-08-16 07:29
WithOptions.pm	1.63 KB	-rw-rw-rw-	2015-08-16 07:29

Rename

package # hide from PAUSE
    MooseX::Declare::Context::WithOptions;

our $VERSION = '0.43';

use Moose::Role;
use Carp qw/croak/;
use MooseX::Types::Moose 0.20 qw/HashRef/;

use namespace::autoclean;

has options => (
    is      => 'rw',
    isa     => HashRef,
    default => sub { {} },
    lazy    => 1,
);

sub strip_options {
    my ($self) = @_;
    my %ret;

# Make errors get reported from right place in source file
    local $Carp::Internal{'MooseX::Declare'} = 1;
    local $Carp::Internal{'Devel::Declare'} = 1;

$self->skipspace;
    my $linestr = $self->get_linestr;

while (substr($linestr, $self->offset, 1) !~ /[{;]/) {
        my $key = $self->strip_name;
        if (!defined $key) {
            croak 'expected option name'
              if keys %ret;
            return; # This is the case when { class => 'foo' } happens
        }

croak "unknown option name '$key'"
            unless $key =~ /^(extends|with|is)$/;

my $val = $self->strip_name;
        if (!defined $val) {
            if (defined($val = $self->strip_proto)) {
                $val = [split /\s*,\s*/, $val];
            }
            else {
                croak "expected option value after $key";
            }
        }

$ret{$key} ||= [];
        push @{ $ret{$key} }, ref $val ? @{ $val } : $val;
    } continue {
        $self->skipspace;
        $linestr = $self->get_linestr();
    }

my $options = { map {
        my $key = $_;
        $key eq 'is'
            ? ($key => { map { ($_ => 1) } @{ $ret{$key} } })
            : ($key => $ret{$key})
    } keys %ret };

$self->options($options);

return $options;
}