inet6 results from the CPAN

Perl-PrereqScanner-NotQuiteLite
view release on metacpan or search on metacpan
afundar
afunilar
agachar
agadanhar
agaitar
agarotar
EOSTR
    ;
1 ;
TEST

test(<<'TEST'); # ISTEEL/HTMLTMPL-1.34/HTMLTMPL.pm
sub dumpAll()
{
    print << "EOHTML";
Content-type: text/html

<html><head><title>Dump of tokens and values</title></head>
<body bgcolor=beige>
<h3 align=center>Dump of tokens and values</h3>
<p>
<table border=1 align=center>
<tr align=center><th bgcolor=lightblue>Token</th><th colspan=2 bgcolor=lightblue>Value</th></tr>
EOHTML
    dumpit(@_);

    print "</table></body></html>";
}

sub dumpit()
{
    my ($self, $block) = @_;

    if (defined $block)
    {
        $self = \%$block if (defined $block);
    }

    my $repeating = $self->{'_C__REPEAT__'};
}
TEST

test(<<'TEST'); # GOMOR/Net-Packet-2.22/Packet/TCP.pm
   my $offX2Flags = ($self->off << 12) | (0x0f00 & ($self->x2 << 8))
                  | (0x00ff & $self->flags);

   my $phpkt;
   # Handle checksumming with DescL2&3
   if ($frame->l3) {
      if ($frame->l3->isIpv4) {
         $phpkt = $self->SUPER::pack('a4a4CCn',
            inetAton($frame->l3->src),
            inetAton($frame->l3->dst),
            0,
            $frame->l3->protocol,
            $frame->l3->getPayloadLength,
         ) or return undef;
      }
      elsif ($frame->l3->isIpv6) {
         $phpkt = $self->SUPER::pack('a*a*NnCC',
            inet6Aton($frame->l3->src),
            inet6Aton($frame->l3->dst),
            $frame->l3->payloadLength,
            0,
            0,
            $frame->l3->nextHeader,
         ) or return undef;
      }
   }
   # Handle checksumming with DescL4
   else {
      my $totalLength = $self->getLength;
      $totalLength += $frame->l7->getLength if $frame->l7;


      if ($env->desc->isFamilyIpv4) {
         $phpkt = $self->SUPER::pack('a4a4CCn',
            inetAton($env->ip),
            inetAton($env->desc->target),
            0,
            $env->desc->protocol,
            $totalLength,
         ) or return undef;
      }
      elsif ($env->desc->isFamilyIpv6) {
         $phpkt = $self->SUPER::pack('a*a*NnCC',
            inet6Aton($env->ip6),
            inet6Aton($env->desc->target),
            $totalLength,
            0,
            0,
            $env->desc->protocol,
         ) or return undef;
      }
   }
TEST

test(<<'TEST'); # FEDOROV/File-Stat-Bits-1.01/Bits.pm
sub dev_join
{
    my ($major, $minor) = @_;

    package File::Stat::Bits::dirty;

    if ( defined MAJOR_SHIFT )
    {
    return
        (($major << MAJOR_SHIFT) & MAJOR_MASK) |
        (($minor << MINOR_SHIFT) & MINOR_MASK);
    }
    else
    {
    return undef;
    }
}
TEST

test(<<'TEST'); # GAAL/Perl6-Signature-0.04/lib/Perl6/Signature.pm
package Perl6::Signature;

use warnings;

use Parse::RecDescent;
use Text::Balanced;
use Perl6::Signature::Val;

our $VERSION = '0.04';

#$::RD_TRACE = 1;
$::RD_HINT  = 1;

our $SIGNATURE_GRAMMAR = << '#\'END';
#\
    {
        use Text::Balanced qw(extract_bracketed);
        use Carp qw(croak);
    }

    Sig: Sig_colon | Sig_nocolon

    Sig_colon: ':' Sig_nocolon

    Sig_nocolon: '(' Sigbody ')'
        { $item{Sigbody} }

    Sigbody: Sigbody_inv | Sigbody_noinv

    Sigbody_inv: Invocant <skip:'\s*'> ':' Sigbody_noinv
( run in 0.664 second using v1.01-cache-2.11-cpan-9581c071862 )