view release on metacpan or search on metacpan
lib/HTML/HTML5/DOM.pm view on Meta::CPAN
if (m{^[*]\[(\d+)]$}) { $1; }
elsif (m{^[*]$}) { 0; }
elsif (m{^$}) { 0; }
else { 999_999_999 }
}
split m{/}, (shift)->nodePath;
}
sub compareDocumentPosition
{
my ($self, $other) = @_;
view release on metacpan or search on metacpan
t/lib/Test/HTTP/Server.pm view on Meta::CPAN
);
$self->{out_headers} = { %default_headers };
my $req = $self->{request}->[1];
$req =~ s#^/##;
my @args = map { uri_unescape $_ } split m#/#, $req;
my $func = shift @args;
$func = "index" unless defined $func and length $func;
my $body;
eval {
view release on metacpan or search on metacpan
LinkExtractor.pm view on Meta::CPAN
defined $$NL{'http-equiv'} && $$NL{'http-equiv'} =~ /refresh/i
or
defined $$NL{'name'} && $$NL{'name'} =~ /refresh/i
) ) {
my( $timeout, $url ) = split m{;\s*?URL=}i, $$NL{content},2;
my $base = $self->{_base};
$$NL{url} = URI->new_abs( $url, $base ) if $base;
$$NL{url} = $url unless exists $$NL{url};
$$NL{timeout} = $timeout if $timeout;
}
view release on metacpan or search on metacpan
lib/HTML/Mason/Tests.pm view on Meta::CPAN
return unless @SHARED;
foreach my $comp ( @SHARED )
{
my @path = split m(/), $comp->{path};
my $file = pop @path;
my $dir = File::Spec->catdir( $self->comp_root, @path );
$self->write_comp( $comp->{path}, $dir, $file, $comp->{component} );
lib/HTML/Mason/Tests.pm view on Meta::CPAN
return;
}
foreach my $supp ( @{ $self->{support} } )
{
my @path = split m(/), $supp->{path};
my $file = pop @path;
my $dir = File::Spec->catdir( $self->comp_root, $self->{name}, @path );
$self->write_comp( $supp->{path}, $dir, $file, $supp->{component} );
lib/HTML/Mason/Tests.pm view on Meta::CPAN
sub _write_test_comp
{
my $self = shift;
my $test = $self->{current_test};
my @path = split m(/), $test->{path};
my $file = pop @path;
my $dir = File::Spec->catdir( $self->comp_root, $self->{name}, @path );
unless ( -d $dir )
{
view release on metacpan or search on metacpan
lib/HTML/Microformats/DocumentContext.pm view on Meta::CPAN
next unless ref $hc;
my $address = searchAncestorTag('address', $hc->element);
next unless defined $address;
my @bits = split m'/', $address;
my $address_depth = scalar(@bits);
if ($address_depth < $shallowest_depth
|| !defined $shallowest)
{
$shallowest_depth = $address_depth;
view release on metacpan or search on metacpan
lib/HTML/Pen.pm view on Meta::CPAN
return join '/', @_ if $_[0] =~ m|^/| ;
return join '/', $pen->{path}, @_ ;
}
sub fromFQPath {
my @path = split m|/|, pathHack( $_[0] ) ;
my $fn = pop @path ;
my $path = join '/', @path ;
return ( $path, $fn ) ;
}
view release on metacpan or search on metacpan
# repair last line without \n
ok(
! ( $text =~ s{([^\x0D\x0A]) \z}{$1\x0D\x0A}xms ),
"$file_name has newline at EOF",
);
@lines = split m{\x0A}, $text;
}
my $find_line_numbers = sub {
my ($test_description, $test_reason, $regex, $regex_negation) = @_;
my $line_number = 0;
view release on metacpan or search on metacpan
lib/HTML/Template/Compiled/Plugin/I18N.pm view on Meta::CPAN
# class method
sub escape {
my (undef, $string, $escapes) = @_;
return _escape($string, split m{,}xms, $escapes);
}
# class method
sub expand_unescaped {
my (undef, $string, $arg_ref) = @_;
lib/HTML/Template/Compiled/Plugin/I18N.pm view on Meta::CPAN
for my $name ( keys %{$attr_ref} ) {
# parse ESCAPE
if ($name eq 'ESCAPE') {
if ( length $attr_ref->{$name} ) {
$data_ref->{escape}->{array}
= [ split m{\|}xms, "0|$attr_ref->{$name}" ];
}
}
if ( $init{allow_maketext} ) {
# parse maketext placeholders
# as string constant _1 .. _n
lib/HTML/Template/Compiled/Plugin/I18N.pm view on Meta::CPAN
_throw( qq{Error in template $filename, plugin $package. Can not use FORMATTER twice. $name="$attr_ref->{$name}"} );
}
$data_ref->{formatter}->{array} = [
map {
{value => $_};
} split m{\|}xms, $attr_ref->{$name}
];
next ATTRIBUTE;
}
}
if ( $init{allow_unescaped} ) {
lib/HTML/Template/Compiled/Plugin/I18N.pm view on Meta::CPAN
my $package = __PACKAGE__;
my $unknown_escapes = _calculate_escape({
escapes => [
(
split m{\|}xms, $htc->get_default_escape()
),
(
exists $data_ref->{escape}
? @{ $data_ref->{escape}->{array} }
: ()
view release on metacpan or search on metacpan
lib/HTML/Template/Compiled/Plugin/InlineImage.pm view on Meta::CPAN
# we have raw data, try guessing mime type
require File::MMagic;
my $mm = File::MMagic->new;
my $mtype = $mm->checktype_contents($image)
or croak "Could not determine mime type";
my ($type_a,$type_b) = split m#/#, $mtype;
$type = $type_b;
$binary = $image;
}
else {
($binary, $width, $height) = ref $image eq 'GD::Image'
view release on metacpan or search on metacpan
or die "Cannnot open file $file_name";
local $/ = ();
my $text = <$file>;
# repair last line without \n
$text =~ s{[^\x0D\x0A] \z}{\x0D\x0A}xms;
@lines = split m{\x0A}, $text;
}
my $find_line_numbers = sub {
my ($test_description, $test_reason, $regex, $regex_negation) = @_;
my $line_number = 0;
view release on metacpan or search on metacpan
lib/HTML/Template/Compiled.pm view on Meta::CPAN
my $message = '';
if ($LAST_EXCEPTION and $LAST_EXCEPTION =~ m/at (?:\(eval \d*\)|\S+) line (\d+)\./) {
my $rline = $1;
my $line = $rline;
$line--;
my @lines = split m#$/#, $body;
if ($line > $#lines) {
$line = $#lines;
}
my $pre = $line > 0 ? join $/, @lines[0 .. $line - 1] : '';
my $post = $line < $#lines ? join $/, @lines[$line + 1 .. $#lines] : '';
view release on metacpan or search on metacpan
lib/HTTP/MobileAgent/AirHPhone.pm view on Meta::CPAN
sub parse {
my $self = shift;
my $ua = $self->user_agent;
$ua =~ m!^Mozilla/3\.0\((WILLCOM|DDIPOCKET);(.*)\)! or return $self->no_match;
$self->{name} = $1;
@{$self}{qw(vendor model model_version browser_version cache_size)} = split m!/!, $2;
$self->{cache_size} =~ s/^c//i;
}
sub _make_display {
# XXX
view release on metacpan or search on metacpan
lib/HTTP/MobileAttribute/Agent/AirHPhone.pm view on Meta::CPAN
sub parse {
my ($self, ) = @_;
$self->user_agent =~ m!^Mozilla/3\.0\((WILLCOM|DDIPOCKET);(.*)\)! or return $self->no_match;
$self->{name} = $1;
@{$self}{qw(vendor model model_version browser_version cache_size)} = split m!/!, $2;
$self->{cache_size} =~ s/^c//i;
}
1;
view release on metacpan or search on metacpan
lib/HTTP/OAI/UserAgent.pm view on Meta::CPAN
$parser->{content_buffer} .= $_[2];
do
{
# FB_QUIET won't split multi-byte chars on input
my $utf8 = Encode::decode('UTF-8', $parser->{content_buffer}, Encode::FB_QUIET);
if( length($utf8) > 0 )
{
use utf8;
view release on metacpan or search on metacpan
lib/HTTP/Request/Params.pm view on Meta::CPAN
my $params = $parse_params->params;
=cut
use vars qw[$VERSION];
$VERSION = sprintf '%d.%02d', split m/\./, (qw$Revision: 1.2 $)[1];
use CGI;
use Email::MIME;
use Email::MIME::Modifier;
use Email::MIME::ContentType qw[parse_content_type];
view release on metacpan or search on metacpan
lib/Hadoop/HDFS/Command.pm view on Meta::CPAN
my $space = q{ };
my @rv;
for my $line ( @response ) {
my($mode, $replication, $user, $group, @unknown) = split m{ \s+ }xms, $line, 5;
my @rest = map { split $space, $_ } @unknown;
my $size;
if ( $arg->{h}) {
if ( $rest[0] eq '0' || $rest[1] !~ m{ [a-zA-Z_] }xms ) {
$size = shift @rest;
lib/Hadoop/HDFS/Command.pm view on Meta::CPAN
( map { '-' . $_ } grep { $arg->{ $_ } } @flags ),
@{ $paths },
) or die "No output collected from -du command";
return map {
my @val = split m{ \s{2,} }xms, $_;
{
size => shift( @val ),
name => pop( @val ),
( @val ? (
disk_space_consumed => shift( @val ),
lib/Hadoop/HDFS/Command.pm view on Meta::CPAN
my %rv;
for my $line ( @response ) {
if ( my($match) = $line =~ m{ \A [#] \s+ (.*) \z }xms ) {
my($k, $v) = split m{ [:] \s+ }xms, $match, 2;
$rv{ $k } = $v;
next;
}
push @{ $rv{entries} ||= [] }, $line;
}
lib/Hadoop/HDFS/Command.pm view on Meta::CPAN
my $rv = shift;
$rv =~ s{ \A \s+ }{}xms;
$rv =~ s{ \s+ \z }{}xms;
return split m{ \n+ }xms, $rv;
}
sub _log {
my $self = shift;
return if ! $self->enable_log;
view release on metacpan or search on metacpan
lib/Hadoop/Inline/ClassLoader.pm view on Meta::CPAN
state $package_delimiter = PACKAGE_DELIMITER;
my $base_ns = 'org::apache::hadoop::';
my $filter = do {
my @rv = split m{ $package_delimiter }xms, $base_ns;
pop @rv;
join PACKAGE_DELIMITER, @rv;
};
my @ns = $class->_namespace_probe( $base_ns );
lib/Hadoop/Inline/ClassLoader.pm view on Meta::CPAN
(my $short_name = $class) =~ s{
\Q$filter\E
$package_delimiter
}{}xms;
$short_name = join PACKAGE_DELIMITER,
map { ucfirst $_ } split m{ $package_delimiter }xms,
$short_name
;
# import() was called multiple times?
next if %{ $short_name . PACKAGE_DELIMITER };
view release on metacpan or search on metacpan
lib/Ham/ADIF/ADI.pm view on Meta::CPAN
sub _process_record {
my ($self, $rec) = @_;
my $struct = {};
for my $tag (split m{[\r\n<]+}smx, $rec) {
if(!$tag) {
next;
}
my ($tagname, $length, $type, $value) = $tag =~ m{(.*?):(\d+)(:D)?>(.*?)\s*$}smix;
lib/Ham/ADIF/ADI.pm view on Meta::CPAN
sub _process_header {
my ($self, $header) = @_;
my $struct = {};
for my $tag (split m{[\r\n]+}smx, $header) {
if(!$tag) {
next;
}
my ($tagname, $length, $datatype, $value, $enum) = $tag =~ m{<(.*?):(\d+)(?::(.*?))?>(.*?)(?:,[{](.*?)[}])?$}smix;
view release on metacpan or search on metacpan
0.04 2014-12-10 Released-By: PERLANCAR
- No functional changes.
- Use new name of renamed/split module SHARYANTO::String::Util ->
String::Trim::More.
0.03 2012-11-10 Released-By: SHARYANTO
view release on metacpan or search on metacpan
# repair last line without \n
ok(
! ( $text =~ s{([^\x0D\x0A]) \z}{$1\x0D\x0A}xms ),
"$file_name has newline at EOF",
);
@lines = split m{\x0A}, $text;
}
my $find_line_numbers = sub {
my ($test_description, $test_reason, $regex, $regex_negation) = @_;
my $line_number = 0;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
return $_[1];
};
}
{
map { my ($pk, $vr) = split m/\s/; build_requires $pk => $vr || 0 } grep { ! /^\s*#/ } split m/\n/, <<_END_;
Test::Most
_END_
map { my ($pk, $vr) = split m/\s/; requires $pk => $vr || 0 } grep { ! /^\s*#/ } split m/\n/, <<_END_;
Carp::Clan
Hash::Slice 0.03
Moose
MooseX::MakeImmutable 0.02
_END_
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
return $_[1];
};
}
{
map { my ($pk, $vr) = split m/\s/; build_requires $pk => $vr || 0 } grep { ! /^\s*#/ } split m/\n/, <<_END_;
Test::Most
_END_
map { my ($pk, $vr) = split m/\s/; requires $pk => $vr || 0 } grep { ! /^\s*#/ } split m/\n/, <<_END_;
Carp::Clan
Clone
Storable
_END_
}
view release on metacpan or search on metacpan
lib/Hex/Record.pm view on Meta::CPAN
sub import_intel_hex {
my ($self, $hex_string) = @_;
my $addr_high_dec = 0;
my $create_part = 0;
for my $line (split m{\n\r?}, $hex_string) {
my ($addr, $type, $bytes_str) = $line =~ m{
: # intel hex start
[[:xdigit:]]{2} # bytecount
([[:xdigit:]]{4}) # addr
([[:xdigit:]]{2}) # type
lib/Hex/Record.pm view on Meta::CPAN
8 => 6,
9 => 4,
);
my @parts;
for my $line (split m{\n\r?}, $hex_string) {
next unless substr( $line, 0, 1 ) =~ m{s}i;
my $type = substr $line, 1, 1;
my $addr_length = $address_length_of_srec_type{$type} || next;
view release on metacpan or search on metacpan
bin/model_check.pl view on Meta::CPAN
my @transitions_from = ();
for my $step ($config->GroupMembers('Step')) {
my $name = $step;
$name =~s{\A Step \s}{}xms;
if ($name =~m{\s}) {
my ($from, $to) = split m{\s} , $name;
push @transitions_from, $name;
}
}
for my $transition (@transitions_from) {
bin/model_check.pl view on Meta::CPAN
my @transitions_from = ();
for my $step ($config->GroupMembers('Step')) {
my $name = $step;
$name =~s{\A Step \s}{}xms;
if ($name =~m{\s}) {
my ($from, $to) = split m{\s} , $name;
push @transitions_from, { from => $from, to => $to };
}
else {
$steps_of{ $name } = 1;
}
bin/model_check.pl view on Meta::CPAN
my @action_from = defined $config->val( "Step $name", 'action')
? $config->val( "Step $name", 'action')
: ();
foreach my $action(@action_from) {
my ($target, $source) = split m{=}, $action || $action;
# only try if our target looks like identifier.identifier
if ($target =~ s{ \A ([^\.]+) \. .+ \Z }{$1}xms ) {
warn "ERROR: Non-existant target $target specified in action $action in [Step $name]\n"
if not exists $controls_of{ $target };
view release on metacpan or search on metacpan
lib/IO/Async/Debug.pm view on Meta::CPAN
our $DEBUG = $ENV{IO_ASYNC_DEBUG} || 0;
our $DEBUG_FD = $ENV{IO_ASYNC_DEBUG_FD};
our $DEBUG_FILE = $ENV{IO_ASYNC_DEBUG_FILE};
our $DEBUG_FH;
our %DEBUG_FLAGS = map { $_ => 1 } split m/,/, $ENV{IO_ASYNC_DEBUG_FLAGS} || "";
=head1 NAME
C<IO::Async::Debug> - debugging control and support for L<IO::Async>
view release on metacpan or search on metacpan
t/lib/Test/HTTP/Server.pm view on Meta::CPAN
);
$self->{out_headers} = { %default_headers };
my $req = $self->{request}->[1];
$req =~ s#^/##;
my @args = map { uri_unescape $_ } split m#/#, $req;
my $func = shift @args;
$func = "index" unless defined $func and length $func;
my $body;
eval {
view release on metacpan or search on metacpan
print {$wtr} join( $/, 0 + $!, 0 + $^E, $@ );
}
};
close $wtr;
my @res = split m<$/>, do { local $/; <$rdr> };
close $rdr;
do { local $?; waitpid $parasite_pid, 0 };
if ($got_SIGTERM) {
view release on metacpan or search on metacpan
lib/IO/Iron/Applications/IronCache/Command/clear.pm view on Meta::CPAN
my %parameters;
$parameters{'config'} = $opts->{'config'} if defined $opts->{'config'};
$parameters{'policies'} = $opts->{'policies'} if defined $opts->{'policies'};
$parameters{'no-policy'} = $opts->{'no-policy'};
my %output;
$parameters{'cache_name'} = [ split m/[,]/msx, $args->[1] ]; # expects array
%output = IO::Iron::Applications::IronCache::Functionality::clear_cache(%parameters);
print $self->combine_template('clear_cache', \%output);
return 0;
}
view release on metacpan or search on metacpan
lib/IO/Iron/Connector.pm view on Meta::CPAN
$log->debugf( 'A paged query. Href:\'%s\'', $page_href );
$page_href .= ( $href =~ /\?/gsx ? q{&} : q{?} ) . 'per_page=' . $per_page . '&page=' . $page_number;
( $http_status_code_temp, $returned_msg_temp ) =
$self->perform_http_action( $action_verb, $page_href, $params );
my $return_list = $returned_msg_temp;
my ( $return_type_def, $list_hash_key ) = ( split m/:/s, $return_type );
$return_list = $returned_msg_temp->{$list_hash_key}
if $return_type_def eq 'LIST' && defined $list_hash_key; ## no critic (ControlStructures::ProhibitPostfixControls)
push @returned_msgs, @{$return_list};
if ( scalar @{$return_list} == 0 || @{$return_list} < $per_page ) {
view release on metacpan or search on metacpan
lib/IO/Multiplex/Intermediary.pm view on Meta::CPAN
}
sub client_input {
my $self = shift;
my $input = $_[ARG0];
my @packets = split m{\e}, $input;
s/[\r\n]*$// for @packets;
$self->_process_input($_) for grep { $_} @packets;
}
sub _disconnect {