App-Genpass-ID
view release on metacpan or search on metacpan
script/_genpass-id view on Meta::CPAN
# YAML_LOAD_ERR_BAD_STR_TO_TIME
# YAML_LOAD_WARN_DUPLICATE_KEY
# YAML_PARSE_ERR_INLINE_MAP
# YAML_PARSE_ERR_INLINE_SEQUENCE
# YAML_PARSE_ERR_BAD_DOUBLE
# YAML_PARSE_ERR_BAD_SINGLE
# YAML_PARSE_ERR_BAD_INLINE_IMPLICIT
# YAML_PARSE_ERR_BAD_IMPLICIT
# YAML_LOAD_WARN_NO_REGEXP_IN_REGEXP
# YAML_LOAD_WARN_BAD_REGEXP_ELEM
# YAML_LOAD_WARN_REGEXP_CREATE
# YAML_LOAD_WARN_GLOB_NAME
# YAML_LOAD_WARN_PARSE_CODE
# YAML_LOAD_WARN_CODE_DEPARSE
# YAML_LOAD_WARN_BAD_GLOB_ELEM
# YAML_PARSE_ERR_ZERO_INDENT
# );
#
#package YAML::Old::Warning;
#
#our @ISA = 'YAML::Old::Error';
#
#1;
### YAML/Old/Loader.pm ###
#package YAML::Old::Loader;
#
#use YAML::Old::Mo;
#extends 'YAML::Old::Loader::Base';
#
#use YAML::Old::Loader::Base;
#use YAML::Old::Types;
#use YAML::Old::Node;
#
#use constant LEAF => 1;
#use constant COLLECTION => 2;
#use constant VALUE => "\x07YAML\x07VALUE\x07";
#use constant COMMENT => "\x07YAML\x07COMMENT\x07";
#
#my $ESCAPE_CHAR = '[\\x00-\\x08\\x0b-\\x0d\\x0e-\\x1f]';
#my $FOLD_CHAR = '>';
#my $LIT_CHAR = '|';
#my $LIT_CHAR_RX = "\\$LIT_CHAR";
#
#sub load {
# my $self = shift;
# $self->stream($_[0] || '');
# return $self->_parse();
#}
#
#sub _parse {
# my $self = shift;
# my (%directives, $preface);
# $self->{stream} =~ s|\015\012|\012|g;
# $self->{stream} =~ s|\015|\012|g;
# $self->line(0);
# $self->die('YAML_PARSE_ERR_BAD_CHARS')
# if $self->stream =~ /$ESCAPE_CHAR/;
# $self->{stream} =~ s/(.)\n\Z/$1/s;
# $self->lines([split /\x0a/, $self->stream, -1]);
# $self->line(1);
# $self->_parse_throwaway_comments();
# $self->document(0);
# $self->documents([]);
# if (not $self->eos) {
# if ($self->lines->[0] !~ /^---(\s|$)/) {
# unshift @{$self->lines}, '---';
# $self->{line}--;
# }
# }
#
# while (not $self->eos) {
# $self->anchor2node({});
# $self->{document}++;
# $self->done(0);
# $self->level(0);
# $self->offset->[0] = -1;
#
# if ($self->lines->[0] =~ /^---\s*(.*)$/) {
# my @words = split /\s+/, $1;
# %directives = ();
# while (@words && $words[0] =~ /^#(\w+):(\S.*)$/) {
# my ($key, $value) = ($1, $2);
# shift(@words);
# if (defined $directives{$key}) {
# $self->warn('YAML_PARSE_WARN_MULTIPLE_DIRECTIVES',
# $key, $self->document);
# next;
# }
# $directives{$key} = $value;
# }
# $self->preface(join ' ', @words);
# }
# else {
# $self->die('YAML_PARSE_ERR_NO_SEPARATOR');
# }
#
# if (not $self->done) {
# $self->_parse_next_line(COLLECTION);
# }
# if ($self->done) {
# $self->{indent} = -1;
# $self->content('');
# }
#
# $directives{YAML} ||= '1.0';
# $directives{TAB} ||= 'NONE';
# ($self->{major_version}, $self->{minor_version}) =
# split /\./, $directives{YAML}, 2;
# $self->die('YAML_PARSE_ERR_BAD_MAJOR_VERSION', $directives{YAML})
# if $self->major_version ne '1';
# $self->warn('YAML_PARSE_WARN_BAD_MINOR_VERSION', $directives{YAML})
# if $self->minor_version ne '0';
# $self->die('Unrecognized TAB policy')
# unless $directives{TAB} =~ /^(NONE|\d+)(:HARD)?$/;
#
# push @{$self->documents}, $self->_parse_node();
# }
# return wantarray ? @{$self->documents} : $self->documents->[-1];
#}
#
#sub _parse_node {
script/_genpass-id view on Meta::CPAN
# $self->die('YAML_PARSE_ERR_BAD_SINGLE');
# }
# return $node;
#}
#
#sub _parse_inline_simple {
# my $self = shift;
# my $value;
# if ($self->inline =~ /^(|[^!@#%^&*].*?)(?=[\[\]\{\},]|, |: |- |:\s*$|$)/) {
# $value = $1;
# substr($self->{inline}, 0, length($1)) = '';
# }
# else {
# $self->die('YAML_PARSE_ERR_BAD_INLINE_IMPLICIT', $value);
# }
# return $value;
#}
#
#sub _parse_implicit {
# my $self = shift;
# my ($value) = @_;
# $value =~ s/\s*$//;
# return $value if $value eq '';
# return undef if $value =~ /^~$/;
# return $value
# unless $value =~ /^[\@\`]/ or
# $value =~ /^[\-\?]\s/;
# $self->die('YAML_PARSE_ERR_BAD_IMPLICIT', $value);
#}
#
#sub _parse_unfold {
# my $self = shift;
# my ($chomp) = @_;
# my $node = '';
# my $space = 0;
# while (not $self->done and $self->indent == $self->offset->[$self->level]) {
# $node .= $self->content. "\n";
# $self->_parse_next_line(LEAF);
# }
# $node =~ s/^(\S.*)\n(?=\S)/$1 /gm;
# $node =~ s/^(\S.*)\n(\n+\S)/$1$2/gm;
# $node =~ s/\n*\Z// unless $chomp eq '+';
# $node .= "\n" unless $chomp;
# return $node;
#}
#
#sub _parse_block {
# my $self = shift;
# my ($chomp) = @_;
# my $node = '';
# while (not $self->done and $self->indent == $self->offset->[$self->level]) {
# $node .= $self->content . "\n";
# $self->_parse_next_line(LEAF);
# }
# return $node if '+' eq $chomp;
# $node =~ s/\n*\Z/\n/;
# $node =~ s/\n\Z// if $chomp eq '-';
# return $node;
#}
#
#sub _parse_throwaway_comments {
# my $self = shift;
# while (@{$self->lines} and
# $self->lines->[0] =~ m{^\s*(\#|$)}
# ) {
# shift @{$self->lines};
# $self->{line}++;
# }
# $self->eos($self->{done} = not @{$self->lines});
#}
#
#sub _parse_next_line {
# my $self = shift;
# my ($type) = @_;
# my $level = $self->level;
# my $offset = $self->offset->[$level];
# $self->die('YAML_EMIT_ERR_BAD_LEVEL') unless defined $offset;
# shift @{$self->lines};
# $self->eos($self->{done} = not @{$self->lines});
# if ($self->eos) {
# $self->offset->[$level + 1] = $offset + 1;
# return;
# }
# $self->{line}++;
#
# if ($self->preface =~
# qr/(?:^|\s)(?:$FOLD_CHAR|$LIT_CHAR_RX)(?:-|\+)?(\d*)\s*$/
# ) {
# $self->die('YAML_PARSE_ERR_ZERO_INDENT')
# if length($1) and $1 == 0;
# $type = LEAF;
# if (length($1)) {
# $self->offset->[$level + 1] = $offset + $1;
# }
# else {
# while (@{$self->lines} && ($self->lines->[0] =~ /^\s*#/)) {
# $self->lines->[0] =~ /^( *)/;
# last unless length($1) <= $offset;
# shift @{$self->lines};
# $self->{line}++;
# }
# $self->eos($self->{done} = not @{$self->lines});
# return if $self->eos;
# if ($self->lines->[0] =~ /^( *)\S/ and length($1) > $offset) {
# $self->offset->[$level+1] = length($1);
# }
# else {
# $self->offset->[$level+1] = $offset + 1;
# }
# }
# $offset = $self->offset->[++$level];
# }
# elsif ($type == COLLECTION and
# $self->preface =~ /^(\s*(\!\S*|\&\S+))*\s*$/) {
# $self->_parse_throwaway_comments();
# if ($self->eos) {
# $self->offset->[$level+1] = $offset + 1;
# return;
# }
# else {
# $self->lines->[0] =~ /^( *)\S/ or
# $self->die('YAML_PARSE_ERR_NONSPACE_INDENTATION');
# if (length($1) > $offset) {
# $self->offset->[$level+1] = length($1);
# }
# else {
# $self->offset->[$level+1] = $offset + 1;
# }
# }
# $offset = $self->offset->[++$level];
# }
#
# if ($type == LEAF) {
# while (@{$self->lines} and
# $self->lines->[0] =~ m{^( *)(\#)} and
# length($1) < $offset
# ) {
# shift @{$self->lines};
# $self->{line}++;
# }
# $self->eos($self->{done} = not @{$self->lines});
# }
# else {
# $self->_parse_throwaway_comments();
# }
# return if $self->eos;
#
# if ($self->lines->[0] =~ /^---(\s|$)/) {
# $self->done(1);
# return;
# }
# if ($type == LEAF and
# $self->lines->[0] =~ /^ {$offset}(.*)$/
# ) {
# $self->indent($offset);
# $self->content($1);
# }
# elsif ($self->lines->[0] =~ /^\s*$/) {
# $self->indent($offset);
# $self->content('');
# }
# else {
# $self->lines->[0] =~ /^( *)(\S.*)$/;
# while ($self->offset->[$level] > length($1)) {
# $level--;
# }
# $self->die('YAML_PARSE_ERR_INCONSISTENT_INDENTATION')
# if $self->offset->[$level] != length($1);
# $self->indent(length($1));
# $self->content($2);
# }
# $self->die('YAML_PARSE_ERR_INDENTATION')
# if $self->indent - $offset > 1;
#}
#
#
#my %unescapes = (
# 0 => "\x00",
# a => "\x07",
# t => "\x09",
# n => "\x0a",
# 'v' => "\x0b",
# f => "\x0c",
# r => "\x0d",
# e => "\x1b",
# '\\' => '\\',
# );
#
#sub _unescape {
# my $self = shift;
# my ($node) = @_;
# $node =~ s/\\([never\\fart0]|x([0-9a-fA-F]{2}))/
# (length($1)>1)?pack("H2",$2):$unescapes{$1}/gex;
# return $node;
#}
#
#1;
### YAML/Old/Loader/Base.pm ###
#package YAML::Old::Loader::Base;
#
#use YAML::Old::Mo;
#
#has load_code => default => sub {0};
#has preserve => default => sub {0};
( run in 0.722 second using v1.01-cache-2.11-cpan-cdf2f3d4e48 )